{"id":49,"date":"2007-11-27T19:38:18","date_gmt":"2007-11-27T18:38:18","guid":{"rendered":"http:\/\/joergnapp.de\/2007\/11\/28\/auslesen-einer-web-seite-mit-vba-zum-zweiten\/"},"modified":"2008-09-27T19:16:45","modified_gmt":"2008-09-27T18:16:45","slug":"auslesen-einer-web-seite-mit-vba-zum-zweiten","status":"publish","type":"post","link":"https:\/\/joergnapp.de\/blog\/auslesen-einer-web-seite-mit-vba-zum-zweiten\/","title":{"rendered":"Auslesen einer Web-Seite mit VBA zum Zweiten"},"content":{"rendered":"<p><a href=\"http:\/\/joergnapp.de\/2007\/08\/27\/auslesen-einer-web-seite\/\">Hier<\/a> habe ich beschrieben, wie eine Web-Seite mit VBA ausgelesen werden kann.  Einfacher geht es mit der Open-Source-Bibliothek <a href=\"http:\/\/www.pocketsoap.com\/pocketHTTP\/\">PocketHTTP<\/a>.<\/p>\n<p><!--more--><\/p>\n<p>Nach der Installation der Bibliothek muss unter Extras &#8211; Verweise die &#8222;PocketHTTP Type Library&#8220; hinzugef\u00fcgt werden. Dann gen\u00fcgt folgender Schnipsel, um die Web-Seite abzurufen:<\/p>\n<pre lang=\"vb\" line=\"1\">\r\nSub GetURL()\r\n    Const URL = \"http:\/\/www.example.com\/\"\r\n    Dim Request As PocketHTTP.CoPocketHTTP\r\n    Dim Response As PocketHTTP.IHttpResponse\r\n\r\n    Set Request = New PocketHTTP.CoPocketHTTP\r\n    Set Response = Request.GetResponse(URL, vbNullString)\r\n\r\n    Debug.Print Response.String\r\n    Debug.Print Response.StatusCode\r\nEnd Sub\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Hier habe ich beschrieben, wie eine Web-Seite mit VBA ausgelesen werden kann. Einfacher geht es mit der Open-Source-Bibliothek PocketHTTP.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[33,17,15,28,4],"class_list":["post-49","post","type-post","status-publish","format-standard","hentry","category-allgemein","tag-pockethttp","tag-pocketsoap","tag-soap","tag-vba","tag-visual-basic"],"_links":{"self":[{"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/posts\/49","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/comments?post=49"}],"version-history":[{"count":0,"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/posts\/49\/revisions"}],"wp:attachment":[{"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/media?parent=49"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/categories?post=49"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/joergnapp.de\/blog\/wp-json\/wp\/v2\/tags?post=49"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}