引用單元格.send語法錯誤// Web抓取

Question

背景/目標：Web抓取：使用.send的語法問題

我正在嘗試從兩列單元格中的名稱列表中發送姓氏和名字，我遇到了語法錯誤，因為它無法識別該單元格並假定范圍是“名稱”

代碼：語法錯誤從.send下的“最后”和“第一”行開始，因為我嘗試發送單元格值而不是鍵入名稱。 引用單元格范圍時正確的格式是什么？

Option Explicit
Sub Test()
    Dim sContent As String
    Dim i As Long
    Dim j As Long
    Dim aHeader() As String
    Dim aRows() As String

    ' Retrieve HTML content via XHR
    With CreateObject("MSXML2.XMLHTTP")
        .Open "POST", "http://npinumberlookup.org/getResults.php", False
        .setRequestHeader "content-type", "application/x-www-form-urlencoded"
        .send _
            "last=Range(G:1)" & _
            "&first=Range(F:1)" & _
            "&pracstate=TX" & _
            "&npi=" & _
            "&submit=Search"

Answer 1

當您要引用Range的值時，就像@Qharr之前所說的那樣。 我試着做：

' Retrieve HTML content via XHR
With CreateObject("MSXML2.XMLHTTP")
    .Open "POST", "http://npinumberlookup.org/getResults.php", False
    .setRequestHeader "content-type", "application/x-www-form-urlencoded"
    .send _
        "last=" & Range("G1").Value & _
        "&first=" & Range("F1").Value & _
        "&pracstate=TX" & _
        "&npi=" & _
        "&submit=Search"
End With

而且有效。 運行代碼時沒有錯誤。