Auslesen einer Web-Seite mit VBA zum Zweiten

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