Warte bis Webseite heruntergeladen ist
27.10.2022 19:05:16
Abdullah
ich habe den folgenden Code gebastelt. der soll eine Tabelle aus dem Web herunterladen >>>>> die heruntergeladene Seite (Tabelle) auf eine andere Mappe kopieren >>>>>> die heruntergeladene Tabelle löschen >> nächster Seite herunterladen bis zu ca. 6000 Seiten.
Problem ist :
der Code springt zum kopieren bevor die Seite in Excel überhaupt geladen und in die Zellen eingetragen wird. daher werden nur leere Zellen kopiert.
ich habe es mit APP.Wait und Sleep probiert.. Klappt leider nicht. hat jemand eine Lösung?
Option Explicit
Private Sub UseQueryTable()
Dim D As String
Dim E As Integer
Dim url as String
D = "Webseite z. B. xyz.com/xyz="
For E = 2 To 6000
Application.ScreenUpdating = True
Application.DisplayAlerts = True
url = D + CStr(E)
Dim table As QueryTable
Set table = shResult.QueryTables.Add("URL;" & url, shResult.Range("A1"))
With table
.WebSelectionType = xlSpecifiedTables
.WebTables = "2"
.WebFormatting = xlWebFormattingAll
.Refresh
End With
Sheets("shResult").Select
Range("A5:C130").Select
Selection.Copy Destination:=Sheets("Tabelle2").Range("A5")
' hier insert ca. 20 Rows und Call ClearSheet'
Next E
End Sub