excel(VBA)でPHPにPOST送信

パラメータを&でつなげて、

Dim xmlhttp As Object
Set xmlhttp = CreateObject("msxml2.xmlhttp")
xmlhttp.Open "POST", url, False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send (paramStr)

で送信できる。
参考)
http://piyopiyocs.blog115.fc2.com/blog-entry-433.html
また、テキストエリア(textarea)にPOST送信する場合は
改行コード(vbNewLine)を付加して送れば良い。
例えば、URLをテキストエリアに数行書いて、POSTしたい場合は
paramStr = “&urls=http://test.co.jp/aaa.html” & vbNewLine & “http://test.co.jp/bbb.html”
のように送ることができる。

タイトルとURLをコピーしました