引用单元格 .send 语法错误 // 网页抓取

Question

背景/目标：网页抓取：使用 .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

它奏效了。运行代码时没有错误。