VBAを使用してExcelからサーバーにHTTP POSTリクエストを送信するにはどうすればよいですか？

ExcelスプレッドシートからHTTP POSTを実行するには、どのVBAコードが必要ですか？

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send("")

または、の代わりに使用WinHttp.WinHttpRequest.5.1して、HTTPリクエストをより詳細に制御できますMSXML2.ServerXMLHTTP。

MacとWindowsの両方で動作させる必要がある場合は、QueryTablesを使用できます。

With ActiveSheet.QueryTables.Add(Connection:="URL;http://carbon.brighterplanet.com/flights.txt", Destination:=Range("A2"))
    .PostText = "origin_airport=MSN&destination_airport=ORD"
    .RefreshStyle = xlOverwriteCells
    .SaveData = True
    .Refresh
End With

ノート：

• 出力について... VBA関数を呼び出したのと同じセルに結果を返すことが可能かどうかはわかりません。上記の例では、結果はA2に書き込まれます。
• 入力について...特定のセルを変更したときに結果を更新する場合は、それらのセルがVBA関数の引数であることを確認してください。
• これはVBAがないExcel for Mac 2008では機能しません。Excel for Mac 2011はVBAを取り戻しました。

詳細については、「ExcelからのWebサービスの使用」に関する私の完全な要約をご覧ください。

anwserに加え、トカゲのビル：

ほとんどのバックエンドは生の投稿データを解析します。たとえばPHPでは$_POST、投稿データ内の個々の変数が格納される配列があります。この場合、追加のヘッダーを使用する必要があります"Content-type: application/x-www-form-urlencoded"。

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHTTP.send ("var1=value1&var2=value2&var3=value3")

それ以外の場合は、変数の生の投稿データを読み取る必要があります"$HTTP_RAW_POST_DATA"。

ServerXMLHTTPへの参照を追加することにより、VBAプロジェクトで使用できますMSXML。

1. VBAエディターを開く（通常はマクロを編集して）
2. 利用可能な参照のリストに移動します
3. Microsoft XMLを確認する
4. OKをクリックします。

（VBAプロジェクト内でのMSXMLの参照から）

ServerXMLHTTPのMSDNドキュメントは、 ServerXMLHTTPでのすべてのプロパティとメソッドについての完全な詳細を持っています。

要するに、基本的には次のように機能します。

1. オープンコールメソッドをてリモートサーバーに接続します
2. コール送信をてリクエストをします。
3. 経由で応答を読む responseXML、responseText、responseStreamまたはresponseBodyを

他のユーザーの応答を完了するには：

このために、「WinHttp.WinHttpRequest.5.1」オブジェクトを作成しました。

VBAを使用してExcelからのいくつかのデータを含む投稿リクエストを送信します。

Dim LoginRequest As Object
Set LoginRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
LoginRequest.Open "POST", "http://...", False
LoginRequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
LoginRequest.send ("key1=value1&key2=value2")

VBAを使用してExcelからトークン認証付きのgetリクエストを送信します。

Dim TCRequestItem As Object
Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
TCRequestItem.Open "GET", "http://...", False
TCRequestItem.setRequestHeader "Content-Type", "application/xml"
TCRequestItem.setRequestHeader "Accept", "application/xml"
TCRequestItem.setRequestHeader "Authorization", "Bearer " & token
TCRequestItem.send

MSXMLライブラリを使用する前にこれを実行してから、XMLHttpRequestオブジェクトを使用しました。こちらを参照してください。