VBA QueryTables循環類參考

我想要做的是抓取數據表單可變的URL，同時使用單元格A1到A10作爲URL QueryTables上最後一個文本字符串。VBA 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

來源

2017-07-01 user8035099

那麼你的代碼的結果是什麼？爲什麼你要設置'Destination'來覆蓋'A'列中的數據？ –

它只從一個URL中提取數據，我需要它將它從可變URL中循環通過每個單元格a1到a10作爲文本的最後一個字符串 – user8035099

您是對的將會覆蓋我的參考。抱歉QueryTables對我來說是非常新的。 – user8035099

試試這個，它會寫從下面彼此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

來源

2017-07-01 15:27:07

它的工作非常感謝你！我對此有很多修補！ – user8035099

VBA QueryTables循環類參考

回答

相關問題