Hallo!
Ich versuche Daten von einer Website in Excel zu importieren. Tatsächlich handelt es sich um dynamisch aufgebaute Seiten die alle sehr ähnlich aufgebaut sind, und so brauche ich immer dieselben Tabellen dieser Seite:
Das Ganze klappt manchmal einige Male am Stück, manchmal wird aber auch schon beim zweiten mal eine Fehlermeldung ausgegeben:
Laufzeitfehler 1004: Auf die Datei konnte nicht zugegriffen werden.
Das seltsame dabei ist: Erfolgreich durchgeführte Abfragen klappen beim Versuch danach immer. Ich habe den Eindruck, dass VBA gar nicht so richtig abwartet bis die Webseite abgerufen wird. Es kommt mir so vor als würde Excel bei jedem erneutem Aufruf des Makros ein paar Seiten mehr laden.
Habe echt ewig rumgetan an dem Problem. Wüsste jemand einen Rat?
Vielen Dank!
Ich versuche Daten von einer Website in Excel zu importieren. Tatsächlich handelt es sich um dynamisch aufgebaute Seiten die alle sehr ähnlich aufgebaut sind, und so brauche ich immer dieselben Tabellen dieser Seite:
Code:
Sub M1 i=1 While (i < 10) indexVal = Cells(i, 1).Value Call DeleteQueryTables Set qt = ActiveSheet.QueryTables.Add(Connection:="URL;https://www.testseite.de?val=" & indexVal & "", Destination:=Range("J1")) With qt .Name = "Test" & i .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .TablesOnlyFromHTML = True .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebSelectionType = xlSpecifiedTables .WebTables = "2,3" .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With i = i + 1 Wend End Sub Sub DeleteQueryTables() For Each qt In ActiveSheet.QueryTables qt.Delete Next End Sub
Laufzeitfehler 1004: Auf die Datei konnte nicht zugegriffen werden.
Das seltsame dabei ist: Erfolgreich durchgeführte Abfragen klappen beim Versuch danach immer. Ich habe den Eindruck, dass VBA gar nicht so richtig abwartet bis die Webseite abgerufen wird. Es kommt mir so vor als würde Excel bei jedem erneutem Aufruf des Makros ein paar Seiten mehr laden.
Habe echt ewig rumgetan an dem Problem. Wüsste jemand einen Rat?
Vielen Dank!
Comment