Nov 27 2007

Auslesen einer Web-Seite mit VBA zum Zweiten

Kategorien: , , , ,  

Hier habe ich beschrieben, wie eine Web-Seite mit VBA ausgelesen werden kann. Einfacher geht es mit der Open-Source-Bibliothek PocketHTTP.

Nach der Installation der Bibliothek muss unter Extras – Verweise die “PocketHTTP Type Library” hinzugefügt werden. Dann genügt folgender Schnipsel, um die Web-Seite abzurufen:

Sub GetURL()
    Const URL = "http://www.example.com/"
    Dim Request As PocketHTTP.CoPocketHTTP
    Dim Response As PocketHTTP.IHttpResponse

    Set Request = New PocketHTTP.CoPocketHTTP
    Set Response = Request.GetResponse(URL, vbNullString)

    Debug.Print Response.String
    Debug.Print Response.StatusCode
End Sub

Ähnliche Beiträge

Kommentare

Kommentar abgeben