Laufzeitfehler 1004 bei Webabfrage
18.11.2020 14:07:26
Paul
ich nutze Excel 365 und würde gerne Daten einer Internetseite in Excel importieren. Vor dem Update war das ganze kein Problem, bei 365 lässt sich der gewünschte Link leider nicht mehr öffnen (Frage hierzu konnte bisher nicht gelöst werden).
Also habe ich versucht das ganze über ein Makro zu lösen. Hierbei habe ich an einem anderen Rechner mit Excel 2010 die Daten wie gehabt importiert, und das ganze mit einem Makro aufgezeichnet.
Beim Versuch das Makro im 365 auszuführen, kommt folgende Fehlermeldung:
"Laufzeitfehler '1004': https://....konnte nicht geöffnet werden. Die angeforderten Informationen können nicht heruntergeladen werden."
Das Makro sieht wie folgt aus:
Sub Test()
xQTCount = ActiveSheet.QueryTables.Count
For x = 1 To xQTCount
ActiveSheet.QueryTables(x - n).Delete
n = n + 1
Next x
With ActiveSheet.QueryTables.Add(Connection:="URL;https://www.immobilienscout24.de/Suche/de/ _
hamburg/hamburg/wohnung-mieten?enteredFrom=one_step_search", Destination:=Range("$A$1"))
.Name = "Immoscout"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub