2017-06-06 140 views
0

我想在XML从VBA在Excel 2010中调用WCF服务2010

调用一个ASP.Net WCF服务我读了这个问题: calling web service using VBA code in excel 2010 ,但我不能使用第三方库,XML或JSON。

有没有办法做到这一点本地与VBA与网络服务工作?

编辑 我已经安装了SOAP工具包3.0SOAP工具包3.0软件更新

我已经添加了这些库我的工作簿:

  • 微软XML,3.0
  • Microsoft SOAP类型库3.0
  • WINHTTP SOAP连接器类型库
  • WinInet的SOAP连接器类型库
  • Microsoft Soap WSDL文件生成器v3.0

我想我必须通过“工具 - >添加Web引用”菜单将我的服务的Web引用添加到我的工作簿中,但未显示此选项。我该怎么做才能看到它?

回答

1

这是一个示例程序,从使用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期待的确切结构。

+0

我不使用SOAP,但使用新的Web服务,所以我不知道我的信封如何。我打算使用在我的WSDL中定义的客户端类。 – sinsedrix

+0

在这种情况下,我无法提供太多帮助。但是,是什么触发了对web服务的调用(我发送给它的是什么以及URL是什么)以及web服务返回的是什么? – jkpieterse

+0

最后,我不想依赖于接口,所以我将使用SOAP enveloppe方法。 – sinsedrix