Hallo zusammen,
ich nutze folgendes Skript, um html-Webseiteninhalte zu parsen (siehe unten).
Leider ist es sehr "unzuverlässig" - sprich, es es stoppt oft (unregelmäßig) mit der Fehlermeldung:
"Laufzeitfehler 424 - Objekt erforderlich" an der Stelle:
"Ergebnisse = WebBrowser.document.Body.InnerHtml"
Ich muss dann nur auf weiter klicken und es läuft wieder weiter.
Da ich es automatisiert ausführen möchte, ist das blöd.
Kennt jemand einen besseren Abgriff oder ein Workaround? Fehler abfangen?
Danke für Tipps!
Sub sub_Tabelle()
URL = "https://www.meteo.physik.uni-muenchen.de/wetter/index.html"
Dim Ergebnisse As String
' Zugriff aufs Web
Dim WebBrowser As Object
Set WebBrowser = CreateObject("InternetExplorer.Application")
WebBrowser.navigate URL
' Warten, bis die Seite geladen ist
Do While WebBrowser.Busy
DoEvents
Loop
Ergebnisse = WebBrowser.document.Body.InnerHtml
'Ressourcen freigeben
WebBrowser.Quit
Set WebBrowser = Nothing
'....
End Sub
|