QueryTables
18.05.2004 14:38:13
Andrea
Ich habe mal wieder ein Problem und hoffe, dass mir jemand von euch helfen kann. Ich habe eine Tabelle, in welche ich von einer Internetseite regelmässig Aktualisierungen tätigen möchte. Der Internetlink steht in einer separaten Mappe "Links" im Feld A1. Nun möchte ich gerne die ganze Internet-Tabelle in die Mappe "Import" importieren. Ich habe den untenstehenden Code aus einer anderen Excel-Datei kopiert, wo das importieren funktioniert. Wenn ich nun jedoch das Makro starte, kommt die Meldung: "Index ausserhalb des gültigen Bereiches". Ich vermute, dass dies mit dem Befehl in der ersten With-Zeile zu tun hat, kann aber nicht ersehen, woran es liegt, da ich nicht genau verstehe, das mit dem Befehl "QueryTables" passiert. Kann mir jemand von euch helfen?
Private Sub CommandButton1_Click()
With Worksheets("Import").QueryTables("test")
.Connection = "URL;" + Worksheets("Links").Range("a1").Value
.Refresh BackgroundQuery:=False
End With
End Sub
Vielen Dank im voraus.
Gruss
Andrea