EXCELのVBAでPHPまでGET通信でファイルを送りたいのですが方法が分かりませんでした。
どのようなことが実装したいかというと、EXCEL上からファイルパス(絶対パス)を取得して、そのパスから画像データなどのデータを直接、パラメータに格納したいと考えております。
エラーが発生しますがコード記載します。
もしかしたら、根本的な何かが間違っているかもしれないので、間違いがあればご指摘のほどよろしくお願いします。
'webApiにアクセスする用に設定 Public Function serverAccess1() Dim http As Object Dim targetURL As String Dim inputFileName As String Dim inputFn As Long Dim buffer() As Byte '読み込むファイル inputFileName = "読み込むファイルのフルパス" '空いているファイル番号 inputFn = FreeFile 'バイナリファイル読み込み Open inputFileName For Binary As #inputFn 'ファイルの長さで配列を初期化 ReDim buffer(LOF(inputFn)) 'ファイルをバイナリで読み込んでByte配列に格納 Get #inputFn, , buffer Close #inputFn targetURI = "http://test.php?file=" + buffer Set http = CreateObject("MSXML2.XMLHTTP") Call http.Open("GET", targetURI, False) Call http.setRequestHeader("Content-Type", "multipart/form-data") Call http.Send End Function