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