Question

导航到网站后，我在电子表格中有一个名单列表，我需要填入搜索字段，如何在宏中引用电子表格？

从导航命令

我有Url，它要求我在电子表格中填写的名字，姓氏。

如何引用电子表格中的单元格？：

first_name= **A1** &last_name= **B1** &state=TX&country_code=US

与此类似的东西，带有循环语句？ A1 B1为例

Answer 1

这个简单的指令应该做你需要的。

<强>代码：

Sub GrabName()

    Dim ws As Worksheet, cel As Range, retVal As String, tRows As Long
    Set ws = ThisWorkbook.Worksheets(1)
    tRows = ws.Cells(ws.Rows.Count, 1).End(xlUp).row

    Dim r As Long
    For r = 1 To tRows

        retVal = "first_name=" & ws.Cells(r, 1)
        retVal = retVal & "$last_name=" & ws.Cells(r, 2)
        retVal = retVal & "&state=TX&country_code=US"
        retVal = Replace(retVal, " ", "%20")

        MsgBox retVal

    Next r

End Sub

请注意，我为任何空格 " "添加了替换，以更改为%20，因为网址通常不包含空格。如果您不需要，可以删除。

VBA网页刮取REFERENCE

1 个答案: