WinHttpRequest.ResponseText返回截断的文本

时间:2017-10-12 16:03:11

标签: vba excel-vba web-services excel

我尝试在Excel宏中调用web服务。该调用工作正常,但响应被截断(整个响应大约为2兆字节)。

这是我正在使用的程序

Sub CallWebService(xmlRequest As String)

    Dim pRequest As New WinHttpRequest

    pRequest.Open "GET", "http://my-url-here", True
    pRequest.SetRequestHeader "SOAPAction", "groupRequest"
    pRequest.SetRequestHeader "Content-Type", "text/xml; charset=""UTF-8"""
    pRequest.Send xmlRequest
    pRequest.WaitForResponse (100)

     ActiveWorkbook.Sheets("Sheet1").Range("A1").value = pRequest.ResponseText

End Sub

如何获取整个回复文本?

0 个答案:

没有答案