VBAからSOAP通信がしたい

EXCEL VBAから以下のリクエストを実行したいです。

<?xml version="1.0" encoding="UTF-8"?>

<SOAP-ENV:Envelope
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:ns1="http://XX.XXXapis.jp/XX"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
SOAP-ENV:Header
ns1:RequestHeader
ns1:apilicenseXXXXXXXXXXX</ns1:apilicense>
ns1:UserAccountIdXXXXXXXXXXXXXXXXX</ns1:UserAccountId>
</ns1:RequestHeader>
</SOAP-ENV:Header>
SOAP-ENV:Body
ns1:MethodXXXXXX
ns1:XXXXXId1000000001</ns1:XXXXXId>
ns1:XXXXXTypeACCOUNT</ns1:XXXXXType>
</ns1:MethodXXXXXX>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Msxml2.XMLHTTPオブジェクトを利用して以下まで書いてみました。
Set pobjHMLHTTP = CreateObject("Msxml2.XMLHTTP")
With objHMLHTTP
.Open "POST", "http://XX.XXXapis.jp/XX", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.setRequestHeader "apilicense", "XXXXXXXXXXXX"
.setRequestHeader "UserAccountId", "XXXXXXXXXXXXXXXXX"

        .Send
    End With

Bodyの部分を「.Send 」の後に設定すればよいのかと思うのですが、どうすればよいかわかりません。
お知恵をお貸しください！

行動規範の内容に同意します

回答1件

ベストアンサー

Msxml2.XMLHTTPオブジェクトのsendメソッドは、postで使う場合に引数を必要とします。

引数はVariant型で、その内容がHTTPリクエストのボディとして送信されます。

プログラムではまず、事前にリクエストが入った変数を用意して

lang
1Dim requestText as Variant  'リクエストの文字列のための変数を定義しておきます。Variant型にしてください。
2
3'リクエストを変数に設定します。
4requestText = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbNewLine _ 
5 & "<SOAP-ENV:Envelope" & vbNewLine _   '以下、略しますが、 リクエストを全部requestTextに設定してください。

その変数をsendの引数に使います。