Excel VBA でブラウザを介さず Web データを取得する方法

2025年7月26日

ブラウザを起動せずに Web サイトの HTML や JSON を取得したい場合は、MSXML2.XMLHTTP などの HTTP 通信用オブジェクトを利用できます。ここでは https://morinokabu.com/ を例に、GET リクエストを送信してレスポンス本文を取得し、メッセージボックスで確認する手順をご紹介いたします。

サンプルコード

Sub FetchWebData()
    
    Dim httpReq  As Object            ' HTTP リクエスト用オブジェクト
    Dim respBody As String            ' 受信したレスポンス本文
    
    Set httpReq = CreateObject("MSXML2.XMLHTTP")
    
    With httpReq
        .Open "GET", "https://morinokabu.com/", False   ' 同期通信
        .Send                                         ' リクエスト送信
        
        ' ステータスコードが 200（OK）の場合のみ処理
        If .Status = 200 Then
            respBody = .ResponseText
            MsgBox respBody, vbInformation, "取得した HTML"
        Else
            MsgBox "HTTP ステータスコード：" & .Status, vbExclamation, "エラー"
        End If
    End With
    
    Set httpReq = Nothing

End Sub

ポイント

項目	説明
`MSXML2.XMLHTTP`	軽量な HTTP クライアントで、GET や POST の実行が可能です。
`Open` 第 3 引数	`False` を指定すると同期通信となり、レスポンス受信までコードの実行が停止します。非同期にしたい場合は `True` に変更してください。
`Status` プロパティ	HTTP ステータスコードを取得できます。200 であれば正常にレスポンスが返されています。

応用アイデア

目的	実装例
JSON API の取得	レスポンスが JSON の場合、VBA-JSON ライブラリを併用してパースし、Dictionary へ格納するなどの処理が可能です。
POST リクエスト	`.Open "POST", url, False` とし、`.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"` の後に `.Send "param1=value1&param2=value2"` を送信します。
SSL 証明書の検証を回避	開発環境でのみ `MSXML2.ServerXMLHTTP60` を使用し、`.setOption 2, 13056` を指定すると自己署名証明書でも通信が可能です。