Consumir webservices en Excel VBA

[DiegoLG]

Hola Amigos buenas tardes,

¿De casualidad alguien ha hecho consulta desde Web service de tipo POST desde Excel?

[Abraham Valencia]

Hola

¿Te refieres a hacer web scraping a través de VBA usando POST? De poder, se puede, pero no es que se pueda lograr con cualquier web.  Puedes usar el objeto MSXML2.XMLHTTP60 o alguno similar, claro, para saber si se puede hay que saber, a su vez, de qué web hablas y qué necesitas de ella. Ojo, sin ver la web es casi imposible dar una respuesta certera. 

[DiegoLG]

Gracias por el dato amigo, según yo estoy cerca de lograrlo pero por alguna razón no veo ningún dato, o será que le falta algo.

' Se almacenan los parámetros de entrada del WebService
RE = "CSU891221F5A"
RR = "LOCU7805244J6"
IMPORTE = "18724.84"
UUID = "0A83BE11-F99F-4FC1-A494-84582A34C99C"
SELLO = "OAXKkQ=="

' Se crea el objeto que consumirá el webservice
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
' Se crea el objeto que almacenará el resultado del webservice en formato XML
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
Url = "https://consultaqr.facturaelectronica.sat.gob.mx/ConsultaCFDIService.svc"

' Se gestiona el webservice con su URL y demás parámetros
objHTTP.Open "POST", Url, False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

' "https://consultaqr.facturaelectronica.sat.gob.mx/ConsultaCFDIService"

Payload = "RE=" + RE + "&RR=" + RR + "&IMPORTE=" + IMPORTE + "&UUID=" + UUID + "&SELLO=" + SELLO
objHTTP.send (Payload)

'Se guarda el XML de respuesta
 xmlDoc.LoadXML objHTTP.responseText

 

[Abraham Valencia]

¿Es una web privada y/o de intranet? ¿Hay que loguearse previamente de algún modo para acceder a ella? Así a secas como la mandas, pues no hay nada ahí ¿O será que mandaste el enlace del mecanismo de consulta y no la web desde la que se accede? Ojo a todo eso.

[DiegoLG]

hace 4 horas, Abraham Valencia dijo:

¿Es una web privada y/o de intranet? ¿Hay que loguearse previamente de algún modo para acceder a ella? Así a secas como la mandas, pues no hay nada ahí ¿O será que mandaste el enlace del mecanismo de consulta y no la web desde la que se accede? Ojo a todo eso.

que tal amigo buenos días, según yo seguí estos pasos, ahí viene las indicaciones para la consulta:

http://omawww.sat.gob.mx/tramitesyservicios/Paginas/documentos/DocumentacionWSConsulta_CFDIv1-2.pdf

 

De echo lo que estoy enviando sería esto, ya que son los criterios para realizar la validación.

hace 16 horas, DiegoLG dijo:

RE = "CSU891221F5A"
RR = "LOCU7805244J6"
IMPORTE = "18724.84"
UUID = "0A83BE11-F99F-4FC1-A494-84582A34C99C"
SELLO = "OAXKkQ=="

 

[Abraham Valencia]

Hola nuevamente

Pues no sé si es que estoy viejo, pero en ese pdf no veo ninguna indicación relacionada a los parámetros/criterios que intentas enviar y que mencionas.

[DiegoLG]

hace 13 horas, Abraham Valencia dijo:

Pues no sé si es que estoy viejo, pero en ese pdf no veo ninguna indicación relacionada a los parámetros/criterios que intentas enviar y que menciones.

Tienes toda la razón amigo, ahí no menciona esos parámetros, es que yo me estoy apoyando de varias páginas para poder obtener el resultado,

en esta página es donde menciona los parámetros

 

https://developers.sw.com.mx/knowledge-base/servicio-publico-de-consulta-estatus-cfdi-sat/

[Abraham Valencia]

Estimado Diego, los parámetros sugeridos ahí no son como los que usas y algo muy importante, varios comentan que la web que estás usando ya no sirve, tal como me parecía y te comenté. 

[DiegoLG]

hace 12 horas, Abraham Valencia dijo:

Estimado Diego, los parámetros sugeridos ahí no son como los que usas y algo muy importante, varios comentan que la web que estás usando ya no sirve, tal como me parecía y te comenté. 

Gracias amigo por tu tiempo heee.

Logré realizar en C# por si alguien quiere, con gusto.

 

Doy por tema solucionado.

Saludos