urlcodif - lista de formulas de excel

Llamar al servicio web en excel

Question

En un módulo de VBA en excel 2007, ¿es posible llamar a un servicio web? Si es así, ¿algún fragmento de código? ¿Cómo agregaría la referencia web?

Answer 1

¡Sí tu puedes!

Trabajé en un proyecto que lo hizo (ver comentario). Lamentablemente, no hay ejemplos de código de ese, pero Google descubrió estos:

Cómo puede integrar datos de varios servicios web utilizando Excel y VBA

PASO A PASO: Consumir servicios web a través de VBA (Excel o Word)

VBA: servicios web Consume Soap

Answer 2

Aquí hay una descripción general de MS:

Consumir servicios web en Excel 2007

Answer 3

En Microsoft Excel Office 2007, intente instalar el complemento "Web Service Reference Tool". Y use WSDL y agregue los servicios web. Y use el siguiente código en el módulo para obtener los datos necesarios del servicio 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

Answer 4

Para una respuesta actualizada, vea esta pregunta SO:

llamando al servicio web usando el código VBA en excel 2010

Ambos hilos deberían fusionarse.