Verwenden Sie eine Zellreferenz für die Verbindung in GetWebTable

Question

Ich versuche, die Tabellen von WSJ Futures zu ziehen, aber ich möchte in der Lage sein, das Datum in der Webadresse zu ändern. Meine Hoffnung ist, den Code unten zu verwenden, aber die Website eine Zellreferenz zu machen. Irgendwelche Ideen, wie man das macht oder einen anderen Code, der mir das gleiche Ergebnis mit einer Zellreferenz für die Website bringt?

Sub GetWebTable() 
    With ActiveSheet.QueryTables.Add(Connection:="http://www.wsj.com/mdc/public/page/2_3023-fut_metal-futures-20170901.html?mod=mdc_pastcalendar", Destination:=Range("a1")) 
     .Refresh BackgroundQuery:=False 
     .SaveData = True 
    End With 
End Sub 

Answer 1

Versuchen Sie dies. Es wird dir den Tisch holen. Sehen Sie sich diesen Abschnitt Connection:="URL;" & URL, im Skript genauer an. Du hast es vermasselt.

Sub GetWebTable() 
    Dim URL As String 
    URL = "http://www.wsj.com/mdc/public/page/2_3023-fut_metal-futures-20170901.html?mod=mdc_pastcalendar" 

    With ActiveSheet.QueryTables.Add(Connection:="URL;" & URL, Destination:=Range("A1")) 
     .Refresh BackgroundQuery:=False 
     .SaveData = True 
    End With 
End Sub 

EDIT:

Wenn Sie eine bestimmte Tabelle als alle anderen analysieren möchten, müssen Sie nur es nur die Indexnummer finden, wie ich unten tat:

Sub GetWebTable() 
    Dim URL As String 
    URL = "http://www.wsj.com/mdc/public/page/2_3023-fut_metal-futures-20170901.html?mod=mdc_pastcalendar" 

    With ActiveSheet.QueryTables.Add(Connection:="URL;" & URL, Destination:=Range("A1")) 
     .WebTables = "3" 'You can parse any specific table as well. For more than one table change the parameter "2,3" like this 
     .Refresh 
    End With 

End Sub