String 使用excel电子表格中的参数生成URL web调用的程序

在Excel电子表格中，我想使用电子表格中特定列中所有单元格的参数多次调用URL网站。如果该列有20个单元格（例如：B1到B20有数值），那么我需要20个以下格式的调用：

$F$1&value2=[value-from-cell-B1]&value3=$G$1 $F$1&value2=[value-from-cell-B2]&value3=$G$1

将使用特定单元格中的值（例如：F1和G1）设置多个固定参数，但其中只有一个将由该列单元格中的值填充（即，value1将取自电子表格中的单元格，并用于每次调用，value2将是该列中的值（例如：B1、B2、B3…B20）在20个URL调用中的每个调用上

没有程序的一种非常简单的方法是使用excel连接创建URL字符串，然后复制它19次（通过拖动单元格的一角）让value2变量为B1…B20序列。然后我可以使用hyperlink excel forumla为20行中的每一行创建一个超链接。然后我可以单击每个超链接，让它在单独的Google Chrome选项卡中打开

对不起，我知道这可能会让人困惑，但我希望你明白我要做的事情的要点。

---

非常感谢。Sam.

这听起来像是我用他们的API创建了很多FogBugz条目。我只是留下了我可以依次单击的超链接。但是，如果你想以编程方式打开每个链接而不需要人工干预，那么打开一个新的Excel电子表格，在a列中添加一些URL，（www.stackoverflow.com、www.msdn.com、www.bbc.co.uk作为3个示例），将以下代码粘贴到宏中，然后运行它

如果您不介意IE在每次通话后关闭，您可以取消对calls objIE.quit行的注释，如果您不介意看到IE，则可以注释掉或删除makes objIE.Visible=true行

享受

Option Explicit

Sub openWebPage()
    Dim URL As String
    Dim row As Integer
    Dim column As Integer

    row = 1 'start at row 1
    column = 1 ' go down column A

    While Sheet1.Cells(row, column) <> ""
        URL = Sheet1.Cells(row, column)
        MsgBox (URL)

        Call NavigateToURL(URL)

        row = row + 1
    Wend
End Sub

Public Sub NavigateToURL(ByVal argURL As String)
'This function found at
'http://www.mrexcel.com/forum/excel-questions/548585-visual-basic-applications-code-open-url.html
'Modified not to close IE afterwards, and also make IE visible

  Const READYSTATE_COMPLETE As Integer = 4

  Dim objIE As Object

  Set objIE = CreateObject("InternetExplorer.Application")

  With objIE
    .Visible = False
    .Silent = True
    .Navigate argURL
    Do Until .ReadyState = READYSTATE_COMPLETE
      DoEvents
    Loop
  End With

    objIE.Visible = True
  'objIE.Quit
  Set objIE = Nothing

End Sub

选项显式
子开放网页（）
将URL设置为字符串
将行设置为整数
将列设置为整数
行=1'从第1行开始
列=1'向下列A
而Sheet1.单元格（行、列）”
URL=Sheet1.单元格（行、列）
MsgBox（URL）
调用导航URL（URL）
行=行+1
温德
端接头
公共子导航URL（ByVal argURL作为字符串）
'此函数位于
'http://www.mrexcel.com/forum/excel-questions/548585-visual-basic-applications-code-open-url.html
'修改为以后不关闭IE，并使IE可见
常量READYSTATE_完成为整数=4
模糊对象
Set objIE=CreateObject（“InternetExplorer.Application”）
与奥布杰
.Visible=False
.Silent=True
.浏览argURL
直到.ReadyState=ReadyState\u完成为止
多芬特
环
以
objIE.Visible=True
“objIE，退出
设置对象=无
端接头

问题是什么？为什么您不想使用“非常简单的方法”，您在这里已经描述过了？