この操作を完了するために必要なデータはまだ入手できませんVBAランタイムエラー

Question

このランタイムエラーが発生します2147483638 excel vbaコードエディタから。私は自分のWebサービスにXML文字列を送り、Webサービスから応答を返そうとしています。応答が ""であるため、エラーのようです。ここに私のコードだ：

...... 
OutboundDocument.LoadXML (XMLServiceString) 
On Error GoTo DoThisAgain 
    XMLHTTPClient.Open "POST", WebServiceURL, False 
    XMLHTTPClient.Send (OutboundDocument) 
    'errors out here 

DoThisAgain: 
    serviceResponse = XMLHTTPClient.ResponseText ' equals "" gets error 

Answer 1

これは、エラーを回避することができます

Dim MyRequest As MSXML2.XMLHTTP 
 
Set MyRequest = CreateObject("MSXML2.XMLHTTP.6.0") 
 
With MyRequest 
 
    .Open "GET", <URL> 
 
    .send "" 
 
    MyResponse = MyRequest.responseText 
 
End With