WebサイトからデータをExcelに取得する方法①

みなさん、こんちには！

WebサイトからExcelを使ってデータを取得する方法は幾つかありますが、
今回はInternet Explorerを使わずに、 HTTPリクエストして、
取得してみたいと思います。

まずは、友だちに配布出来る様にライブラリを追加せずにCreateObject関数を使って
HTTPリクエストをする方法から

「 XMLHttpRequestオブジェクト 」を CreateObject関数 で生成する。

Dim web_con As Object
Set web_con = CreateObject(“MSXML2.XMLHTTP”)

準備が整いましたので、早速Webサイトに HTTPリクエストしてみましょう。

Openメソッドを使って、リクエストをする。

web_con.Open “GET”, URL
web_con.Send

ちなみ「GET」リクエストを取得する場合に使います。送りたいときは「 Post 」を使います。
今回は取得のみなので 「GET」 を使います。

Dim web_con As Object

Set web_con = CreateObject("MSXML2.XMLHTTP")

 

web_con.Open "GET", "https://www.rakuten.co.jp/",False

web_con.Send

web_con.Open "GET",URL,False
最後に「False」が 付いているの非同期で取得する為です。
これでWebサイトに接続ができました。

次回は、ステータスを取得し状態を確認してからデータを取得する方法に続きます。