web-dev-qa-db-ja.com

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

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

129
Matthew Murdoch
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("")

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

139
Bill the Lizard

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サービスを使用 」についての完全な概要を参照できます。

49
Seamus Abshere

Bill the Lizard のアンカーに加えて:

ほとんどのバックエンドは生の投稿データを解析します。たとえば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"の生の投稿データを読み取る必要があります。

40
thiscode

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

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

(from VBAプロジェクト内のMSXMLの参照

ServerXMLHTTP MSDNドキュメント には、ServerXMLHTTPのすべてのプロパティとメソッドに関する詳細が記載されています。

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

  1. open メソッドを呼び出してリモートサーバーに接続します
  2. 送信 を呼び出してリクエストを送信します。
  3. responseXMLresponseTextresponseStream または responseBody を介して応答を読み取ります
6
Mark Biek

MSXMLライブラリを使用してからXMLHttpRequestオブジェクトを使用する前にこれを行いました。 http://scriptorium.serve-it.nl/view.php?sid=4 を参照してください

0
Sijin