Вызов веб-службы в Excel

в модуле VBA в excel 2007 Можно ли вызвать веб-службу? Если да, то какие-либо фрагменты кода? Как добавить веб-ссылку?

24
excel excel-vba office-2007 vba web-services

4 ответов

Да, Вы Можете!

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

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

шаг за шагом: потребление веб-сервисов через VBA (Excel или Word)

VBA: потребляйте веб-службы Soap

23
6

для получения обновленного ответа см. Этот вопрос так:

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

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

3

в Microsoft Excel Office 2007 попробуйте установить плагин" Web Service Reference Tool". И используйте 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
1