AW: Datumsfeld von Homepage abfragen
14.10.2019 17:46:12
Homepage
Hallo Rolf-Jan,
hier die Lösung zum Holen des Datums. Die Kommentare im Makro sollten alles erklären. Das Datum selbst ist im Quelltext im Format mm/dd/yyyy hinterlegt. Das kannst Du aber umformatieren wenn notwendig:
Sub DatumAuslesen()
Dim browser As Object
Dim url As String
Dim knotenDatum As Object
url = "www.price-robot.de"
'Internet Explorer initialisieren, Sichtbarkeit festlegen,
'URL aufrufen und warten bis Seite vollständig geladen wurde
Set browser = CreateObject("internetexplorer.application")
browser.Visible = False
browser.navigate url
Do Until browser.ReadyState = 4: DoEvents: Loop
'Wenn der betreffende Tag sich nicht direkt abgreifen lässt, den HTML-Quelltext um
'die gewünschte Stelle anschauen. In diesem Fall ist das Datum der einzige Text im
'umgebenden div-Tag, welches dann auch eine ID hat
'<div data-packed="true" style="top:;bottom:;lef..." class="txtNew" id="comp-k1m5ja5c">
' <p class="font_8" style="font-size:15px;">
' <span style="color:#ED1566;">
' <span style="font-size:15px;">
' <span style="font-family:helvetica-w01-light,helvetica-w02-light,sans-serif;">
' 10/14/2019
' </span>
' </span>
' </span>
' </p>
'</div>
'div-Tag holen
Set knotenDatum = browser.document.getElementByID("comp-k1m5ja5c")
'Datum rausholen
MsgBox Trim(knotenDatum.innertext)
'Aufräumen
browser.Quit
Set browser = Nothing
Set knotenDatum = Nothing
End Sub
Viele Grüße,
Zwenn