vba - VBA QueryTables 循环类参考

Question

我要做的是从可变 URL 中获取数据，同时使用单元格 A1 到 A10 作为 URL QueryTables 上的最后一个文本字符串。

• 示例
  单元格 A1= B0006SH4PA

• URL 或 QueryTables 将根据单元格文本进行更改

  myURlocation=B0006SH4PA ' 然后从这个 URL 抓取数据然后循环到下一个单元格

• 这将继续到单元格 A10，每个单元格都有不同的测试，为每个单元格制作不同的 QueryTable。

这是我目前拥有的代码

Sub URL_Static_Query()
Dim i As Integer
   
   With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;myURlocation=" & Range("a1"), _
         Destination:=Range("a1"))
   
      .BackgroundQuery = True
      .TablesOnlyFromHTML = True
      .Refresh BackgroundQuery:=False
      .SaveData = True
   End With
End Sub

Answer 1

试试这个，它将从 B 列开始写入彼此下方的数据。

  Dim i As Long
  For i = 1 To 10
     With Sheet1.QueryTables.Add(Connection:="URL;myURlocation=" & Range("a" & i), _
        Destination:=sheet1.Range("b999999").End(xlUp).Offset(1))

        .BackgroundQuery = True
        .TablesOnlyFromHTML = True
        .Refresh BackgroundQuery:=False
        .SaveData = True
     End With
  Next i