Позвоните в веб-службу в excel

Ответ 1

Да, вы можете!

Я работал над проектом, который сделал это (см. комментарий). К сожалению, никаких кодовых примеров из этого, но googling выявили следующие:

Как вы можете интегрировать данные из нескольких веб-сервисов с помощью Excel и VBA

ШАГ ПО ШАГУ: использование веб-служб через VBA (Excel или Word)

VBA: потреблять мыльные веб-сервисы

Ответ 2

Вот обзор из MS:

Потребление веб-служб в Excel 2007

Ответ 3

Для обновленного ответа см. этот вопрос SO:

вызов веб-службы с использованием кода VBA в excel 2010

Оба потока должны быть объединены, хотя.

Ответ 4

В Microsoft Excel Office 2007 попробуйте установить плагин "Справочник веб-сервиса". И используйте WSDL и добавьте веб-сервисы. И используйте следующий код в модуле для извлечения необходимых данных из веб-сервиса.

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