VBA QueryTablesループクラス参照

Question

私がやっているのは、URL QueryTablesのテキストの最後の文字列としてA1からA10のセルを同時に使用して、データ型の変更可能なURLを取得することです。

• 例
  セルA1 = B0006SH4PA

• URLまたはクエリテーブルは、細胞のテキストを参照して変更になる

  、データがダウン次のセル

に、このURLからループを掻きmyURlocation = B0006SH4PA '

• これは、各セルが異なるテストを有するセル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