Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VBA web刮取参考_Vba_Excel - Fatal编程技术网

VBA web刮取参考

VBA web刮取参考,vba,excel,Vba,Excel,导航到网站后,我在电子表格中有一个名称列表,我需要填充到搜索字段中,如何在宏中引用电子表格 通过导航命令,我得到了Url,它要求输入我在电子表格中填写的名字和姓氏 如何引用电子表格中的单元格?: first_name= **A1** &last_name= **B1** &state=TX&country_code=US 类似的东西,有循环语句吗?A1 B1作为示例此简单说明应满足您的需要 代码: 请注意,我包含了一个将所有空格更改为%20的替换项,因为URL通常不喜欢

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

通过导航命令,我得到了Url,它要求输入我在电子表格中填写的名字和姓氏

如何引用电子表格中的单元格?:

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

类似的东西,有循环语句吗?A1 B1作为示例

此简单说明应满足您的需要

代码:


请注意,我包含了一个将所有空格更改为%20的替换项,因为URL通常不喜欢其中的空格。如果不需要,您可以删除它。

我不确定您想问什么。你应该包括你到目前为止所写的代码,这样我们就可以看到你正在努力完成的任务。上面更新的帖子你应该编辑你的问题,包括一个,给我们一些可靠的工作。让我们知道你已经尝试过的任何事情,你遇到的任何问题,以及你能想到的任何有助于说明你的问题的事情。你能提供的信息越多,我们就能更好地帮助你。
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