VBA QueryTables 循环 class 参考

Question

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

• 例子
  单元格 A1= B0006SH4PA

• URL 或 QueryTables 将更改参考单元格文本

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

• 这将继续到单元格 A10，每个单元格都有不同的测试，为每个单元格创建不同的查询表。

这是我目前的代码

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