MSXML2.XMLHTTPオブジェクトを利用してWEB上のデータを取得したり、PHP等のプログラムへデータを送信することができます。

ACCESS等で入力したデータをすぐにWEBに反映させたいとき等に便利です。

まずは宣言

Dim xmlHttp  as Object 'HTTPリクエストオブジェクト
Dim url      As String 'リクエストを送るURL
Dim strParam As String 'リクエストパラメータ
Dim strRes   As String '結果を受け取る変数

HTTPリクエスト用オブジェクトのバインド

Set xmlHttp = CreateObject("MSXML2.XMLHTTP")

・GET送信
リクエストするURLを指定

url = "http://www.example.jp/index.html"

With xmlHttp
    .Open "GET", url, False
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .Send
    strRes = .ResponseText
End With

・POST送信
PHP等で作成したプログラムのURLを指定

url = "http://www.example.jp/example.php"

送信するパラメータの設定

strParam = "msg=テスト"

With xmlHttp
    .Open "POST", url, False
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .Send (strParam)
    strRes = .ResponseText
End With

openメソッドの書式

open(strMethod, strUrl[, varAsync[, strUser[, strPassword]]])

レスポンスをメッセージボックスで表示します。

If Trim(strRes) <> "" Then MsgBox strRes

オブジェクトを解放

Set xmlHttp = Nothing