Versuch Zellenwert in Web-Datenverbindung url und bekam Fehler 9

Question

Also ich habe diesen Code in Excel VBA

Sub myquerie() 
Dim mytable As QueryTable 
Set mytable = Worksheets("Sheet5").QueryTables("MyQuery") 
mytable.Connection = "URL;" & Worksheets("Converter").Cells(12, 4).Text 
mytable.Refresh 
End Sub 

Und ich bekomme Fehler "Subskript out of range" auf

Set mytable = Worksheets("Sheet5").QueryTables("MyQuery") 

Answer 1

hinzufügen Sie erhalten Subscript Out of Range Fehler, weil es das QueryTable nicht finden kann. MyQuery ist kein QueryTable. Es ist ein ListObject

Jede der folgenden Methoden kann bestätigen, dass

'<~~ These both will give you Subscript out of Range error 
?Worksheets("Sheet5").QueryTables(1).Name 
?Worksheets("Sheet5").QueryTables.Count 

Um zu bestätigen, es ist ein Listobject ist

Sub WhatTheHellIsIt() 
    Dim LS As ListObject 
    Set LS = Sheet4.ListObjects(1) 

    MsgBox LS.Name 
End Sub 

EDIT

Also, was soll ich tun um das zu beheben. Ich bin nicht gut in vba:/- Venoox Vor 8 Stunden

deklarieren es als ListObject und dann mit ihm arbeiten. Etwas wie das. Auch SOMEVALIDCONNECTION unten muss eine gültige Verbindungszeichenfolge sein.

Sub myquerie() 
    Dim mytable As ListObject 

    Set mytable = Worksheets("Sheet5").ListObjects("MyQuery") 
    mytable.QueryTable.Connection = SOMEVALIDCONNECTION 
    mytable.Refresh 
End Sub