|
So, habe nun einen Code gefunden, der sehr performant und stabil ist (siehe unten).
LEIDER hat der einen Nachteil: Er holt immer ALTE Daten ab, so lange man Excel nicht wieder schließt oder öffnet.
Oder den Browsercache löscht.
***grübel***
Wer weiss Rat?
Public Sub parsehtml()
Dim http As Object, html As New HTMLDocument, topics As Object, titleElem As Object, detailsElem As Object, topic As HTMLHtmlElement
Dim i As Integer
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "https://www.meteo.physik.uni-muenchen.de/wetter/index.html", False
http.send
html.body.innerHTML = http.responseText
Z = 1
S = 1
Start = InStr(1, Ergebnisse, "Aktuelle Werte")
Start = InStr(Start, Ergebnisse, "Messwerte vom") + 16
Ende = InStr(Start, Ergebnisse, "<")
Cells(Z, S) = Mid(Ergebnisse, Start, Ende - Start)
End Sub
|