EXCEL からの Webシステム連携

EXCEL をフロントにして VBA で Webシステムへの連携を実現するためのネタ集め

1. http - MSXML2.XMLHTTP send method works with early binding, fails with late binding - Stack Overflow
   http://stackoverflow.com/questions/308826/msxml2-xmlhttp-send-method-works-with-early-binding-fails-with-late-binding
2. EXCEL VBA で Webシステム に POST する

※未検証
Sub main()
    On Error GoTo err
    Dim httpObj
    Dim sendData
 
    '   初期値セット
    target_url = "http://(システムIP等)/xls_post/receive.php"
    sendData = "username=admin&password=pass"
 
    '   POSTで送信
    Set httpObj = CreateObject("Microsoft.XMLHTTP")
    httpObj.Open "POST", target_url, False
    Call httpObj.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    httpObj.send (sendData)
 
    '   結果表示
    MsgBox httpObj.ResponseText
    Exit Sub
err:
    MsgBox "error"
End Sub

＜参考URL＞
http://blog.goo.ne.jp/xmldtp/e/ab555c526c010312679316dfef6fa7a