在excel中調用Web服務

Question

在Excel 2007中的VBA模塊中，是否可以調用Web服務？如果是這樣，任何代碼片段？我將如何添加Web引用？

Answer 1

是的你可以！

我曾參與過一個項目（見評論）。不幸的是，從一個沒有任何代碼樣本，但谷歌搜索發現這些：

How you can integrate data from several Web services using Excel and VBA

STEP BY STEP: Consuming Web Services through VBA (Excel or Word)

VBA: Consume Soap Web Services

Answer 2

下面是MS的概述：

Consuming Web Services in Excel 2007

Answer 3

對於更新回答看這個SO問題：

calling web service using VBA code in excel 2010

兩個線程都應該被合併，雖然。

Answer 4

在Microsoft Excel Office 2007中，嘗試安裝「Web服務參考工具」插件。並使用WSDL並添加Web服務。並使用模塊中的以下代碼從Web服務中獲取必要的數據。

Sub Demo() 
    Dim XDoc As MSXML2.DOMDocument 
    Dim xEmpDetails As MSXML2.IXMLDOMNode 
    Dim xParent As MSXML2.IXMLDOMNode 
    Dim xChild As MSXML2.IXMLDOMNode 
    Dim query As String 
    Dim Col, Row As Integer 
    Dim objWS As New clsws_GlobalWeather 

    Set XDoc = New MSXML2.DOMDocument 
    XDoc.async = False 
    XDoc.validateOnParse = False 
    query = objWS.wsm_GetCitiesByCountry("india") 

    If Not XDoc.LoadXML(query) Then 'strXML is the string with XML' 
     Err.Raise XDoc.parseError.ErrorCode, , XDoc.parseError.reason 
    End If 
    XDoc.LoadXML (query) 

    Set xEmpDetails = XDoc.DocumentElement 
    Set xParent = xEmpDetails.FirstChild 
    Worksheets("Sheet3").Cells(1, 1).Value = "Country" 
    Worksheets("Sheet3").Cells(1, 1).Interior.Color = RGB(65, 105, 225) 
    Worksheets("Sheet3").Cells(1, 2).Value = "City" 
    Worksheets("Sheet3").Cells(1, 2).Interior.Color = RGB(65, 105, 225) 
    Row = 2 
    Col = 1 
    For Each xParent In xEmpDetails.ChildNodes 
     For Each xChild In xParent.ChildNodes 
      Worksheets("Sheet3").Cells(Row, Col).Value = xChild.Text 
      Col = Col + 1 
     Next xChild 
     Row = Row + 1 
     Col = 1 
    Next xParent 
End Sub