这是一个示例程序,从使用Microsoft XML 3.0库中的Web服务获取数据:
Sub DoIt()
Dim sURL As String
Dim sEnv As String
Dim xmlHtp As New MSXML2.XMLHTTP
Dim xmlDoc As New DOMDocument
Dim oValueNodes As MSXML2.IXMLDOMNodeList
sURL = "http://webservices.gama-system.com/exchangerates.asmx?op=CurrentConvertToEUR"
sEnv = "<?xml version=""1.0"" encoding=""utf-8""?>"
sEnv = sEnv & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = sEnv & " <soap:Body>"
sEnv = sEnv & " <CurrentConvertToEUR xmlns=""http://www.gama-system.com/webservices"">"
sEnv = sEnv & " <dcmValue>100</dcmValue>"
sEnv = sEnv & " <strBank>BS</strBank>"
sEnv = sEnv & " <strCurrency>USD</strCurrency>"
sEnv = sEnv & " <intRank>1</intRank>"
sEnv = sEnv & " </CurrentConvertToEUR>"
sEnv = sEnv & " </soap:Body>"
sEnv = sEnv & "</soap:Envelope>"
With xmlHtp
.Open "post", sURL, False
.setRequestHeader "Host", "webservices.gama-system.com"
.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
.setRequestHeader "soapAction", "http://www.gama-system.com/webservices/CurrentConvertToEUR"
.send sEnv
xmlDoc.loadXML .responseText
Set oValueNodes = xmlDoc.getElementsByTagName("CurrentConvertToEURResponse")
MsgBox oValueNodes.Item(0).nodeTypedValue
End With
'xmlDoc.Save ThisWorkbook.Path & "\WebQueryResult.xml"
End Sub
你需要关键的是SOAP信封的WebService期待的确切结构。
我不使用SOAP,但使用新的Web服务,所以我不知道我的信封如何。我打算使用在我的WSDL中定义的客户端类。 – sinsedrix
在这种情况下,我无法提供太多帮助。但是,是什么触发了对web服务的调用(我发送给它的是什么以及URL是什么)以及web服务返回的是什么? – jkpieterse
最后,我不想依赖于接口,所以我将使用SOAP enveloppe方法。 – sinsedrix