Excel VBA皂头

Question

我正在连接到Excel-VBA中的Web服务，但我的代码没有连接。

我知道我之前使用的SoapUI文件中的标题信息确实有效。

这里是SoapUI发送：

POST https://api.e-value.net/PeopleGroup_1_0.cfc HTTP/1.1 
Accept-Encoding: gzip,deflate 
Content-Type: text/xml;charset=UTF-8 
SOAPAction:"" 
Content-Length: 577 
Host: api.e-value.net 
Connection: Keep-Alive 
User-Agent: Apache-HttpClient/4.1.1 (java 1.5) 

我会用什么样的代码我使用send命令之前，包括在标题信息？

Answer 1

一个使用setRequestHeader我认为。所以像这样...

Sub Test2() 

    Dim oXHR As MSXML2.XMLHTTP60 
    Set oXHR = New MSXML2.XMLHTTP60 

    oXHR.Open "POST", "https://api.e-value.net/PeopleGroup_1_0.cfc" 
    oXHR.setRequestHeader "HTTP/1.1 Accept-Encoding", "gzip,deflate" 
    '.... 


End Sub