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.