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