Zugriff auf Webseite

[pahiti78]

Hallo Zusammen,

ich würde gern mit Access auf eine Webseite zugreifen und mir bestimmte Daten zurückgeben lassen. Im Internet habe ich folgenden Code gefunden.

Code [Auswählen] Erweitern

Const url = "http://example.de"
Dim Response As String

' Zugriff aufs Web
Dim WebBrowser As Object
Set WebBrowser = CreateObject("InternetExplorer.Application")
WebBrowser.Visible = True
WebBrowser.Navigate url

' Warten, bis die Seite geladen ist
Do While WebBrowser.busy
  DoEvents
Loop
Response = WebBrowser.Document.Body.InnerHtml
MsgBox (Response)
' Ressourcen freigeben


Jetzt würde ich mir gern, anstatt den kompletten Body, nur den Wert der H1 oder der URL per Msgbox zurückgeben lassen.

Hat jemand eine Idee, wie ich so etwas umsetzen kann?