質問: Nothing End Function ``` ### 試したこと 課題に対してアプローチしたことを記載してください 送信しているパラメータ(ChangeChr(postXML))には、 問題なく値が設定されていることは確認できています。 また、java側ではパラメータ空文字になってしまっていますが、 受信自体は出来ています。 また、以下を試しています。 ・CreateObject("MSXML2.ServerXMLHTTP")の修正 CreateObject("MSXML2.ServerXMLHTTP.3.0")や、 CreateObject("MSXML2.ServerXMLHTTP.6.0")に 変更して動かしてみましたが、改善しませんでした。 ・SetRequestHeaderの修正 "Content-Type", "application/xml; charset=""utf-8"""や、 "Content-Type", "application/x-www-form-urlencoded; charset=""Shift_JIS"""に 変更して動かしてみましたが、改善しませんでした。 ↓4/26追記 WireSharkにて確認した、パケットキャプチャの結果を載せておきます。 (一部変更し伏せています) Win7で実行した場合は、一番下のContent-Lengthが0ではなく、 正しい数値(268)が入っています。 POST /api/httpApiXmlMessageReceive HTTP/1.1 Connection: Keep-Alive Content-Type: application/xml; charset="Shift_JIS" Accept: */* Accept-Language: ja User-Agent: Mozilla/4.0 (compatible; Win32; WinHttp.WinHttpRequest.5) Content-Length: 268 Host: XX.XXX.XXX.XXX ~xmlの中身は省略~ HTTP/1.1 302 Found Date: Tue, 26 Apr 2016 03:29:54 GMT Location: http://XX.XXX.XXX.XXX Content-Length: 0 Keep-Alive: timeout=5, max=100 Connection: Keep-Alive Content-Type: text/plain POST /api/httpApiXmlMessageReceive/ HTTP/1.1 Connection: Keep-Alive Accept: */* User-Agent: Mozilla/4.0 (compatible; Win32; WinHttp.WinHttpRequest.5) Content-Length: 0 Host: XX.XXX.XXX.XXX ### 補足情報(言語/FW/ツール等のバージョンなど) VBA 7.0を使用 Windows7のPCでは問題なく動いており、Windows10では使っている どのPCでも発生しています。 ただ、WIndows10に原因があるのかどうかはわかっていません。
回答: すみません、こちら解決しました。 VBAの方に記述してあるAPI先のURLが一部不足しており、リダイレクトされていたことが原因でした。 回答頂いた方、ありがとうございました。