Llamar al servicio web en excel

Question

En un módulo 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í Puede!

Trabajé en un proyecto que lo hizo (ver comentario). Lamentablemente no hay ejemplos de código de que uno, pero buscando en Google reveló los siguientes:

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

He aquí un resumen de EM:

Consuming Web Services in Excel 2007

Answer 3

Para una actualización respuesta vea esta pregunta ASÍ:

calling web service using VBA code in excel 2010

Ambos hilos deberían fusionarse sin embargo.

Answer 4

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