Excel叫用Web service

1.VBA編輯器→工具→設定引用項目

2.增加Microsoft Office Soap Type Library v3.0

(路徑:C:\Program Files (x86)\Common Files\microsoft shared\OFFICE14\MSSOAP30.DLL)

及Microsoft XML, v6.0

3.以下代碼叫用即可 

 Dim service As SoapClient30 
 
 Dim result As MSXML2.IXMLDOMSelection '回傳結果 
 Dim isOk As MSXML2.IXMLDOMElement '回傳結果屬性(執行結果OK/NG) 
 Dim message As MSXML2.IXMLDOMElement '回傳結果屬性(返回訊息) 
 Dim value As MSXML2.IXMLDOMElement '回傳結果屬性(返回值) 
 
 
 Set service = New SoapClient30 
 Call service.MSSoapInit("WSDL的URL") 
    
 Set result = service.方法名稱("參數") 
 Set isOk = result.Item(0) 
 Set message = result.Item(1) 
 Set value = result.Item(2)