Como hacer una macro en vba para conectarme a yna webservice y consumir informacion (ida y vuelta)

larcof · el 3 de noviembre

Hola, buenas tardes

Estoy necesitando hacer una macro en vba para conectarme a una webservice y consultar informacion.

En la ws habra pdf que yo necesito buscar y luego descargar.

Tengo conocimiento en vba pero esta incursion es nueva.

Vengo googleando y no cosigo nibgun post que me ayude.

Logre consultar usando la opcion datos-de la web... Pero no me sirve para lo que quiero, es buscar un pdf especifico y luego deacargarlo.

Les agradecería cualquier ayuda que me puedan brindar

Buen finde, manuel

Abraham Valencia · el 4 de noviembre

Hola

Si quieres recibir ayuda, trata de hacer preguntas más puntuales, de lo contario, es difícil saber que responderte. Saludos.

larcof · el 4 de noviembre

Hola Abraham, buen dia

Muchas gracias por pronta respuesta, ok te pongo en tema. El tipo de conexión que necesito hacer es de tipo SOAP 1.1 y/o SOAP 1.2, el dueño de la WebService me brindo los parámetros de conexión, lo único que debo hacer con esta es colocarlo en un formato VBA para que usando una macro logre la conexión y así consumir datos...

aqui te brindo SOAP 1.1 ( el 1.2 no es muy diferente)

POST /(webservice)

Host: (direccion web)

Content-Type: text/xml; charset=utf-8

Content-Length: length

SOAPAction: http: (link con la ubicación en la carpeta especifica de búsqueda)

<?xml version="1.0" encoding="utf-8"?>

<soap:Envelope xmlns:xsi=http://xxxxx_instance xmlns:xsd=http:// xxxxx_/XMLSchema xmlns:soap=http:// xxxxx_/envelope/>

<soap:Header>

<UserName>string</UserName>

<Password>string</Password>

</AuthHeader>

</soap:Header>

<soap:Body>

<despacho>string</despacho>

</getDespachoPDF>

</soap:Body>

</soap:Envelope>

HTTP/1.1 200 OK

Content-Type: text/xml; charset=utf-8

Content-Length: length

<?xml version="1.0" encoding="utf-8"?>

<soap:Envelope xmlns:xsi=http://xxxxx_instance xmlns:xsd=http:// xxxxx_/XMLSchema xmlns:soap=http:// xxxxx_/envelope/>

  <soap:Header>

    <AuthHeader xmlns=http:// (webservice)>

      <UserName>string</UserName>

      <Password>string</Password>

    </AuthHeader>

  </soap:Header>

  <soap:Body>

    <getDespachoPDFResponse xmlns=http:// (webservice)>

      <getDespachoPDFResult>

        <despacho>string</despacho>

        <ref_cliente>string</ref_cliente>

        <archivosPdf>

          <ArchivoPDF>

            <TipoDocumento>string</TipoDocumento>

            <UrlPdf>string</UrlPdf>

          </ArchivoPDF>

          <ArchivoPDF>

            <TipoDocumento>string</TipoDocumento>

            <UrlPdf>string</UrlPdf>

          </ArchivoPDF>

        </archivosPdf>

      </getDespachoPDFResult>

    </getDespachoPDFResponse>

  </soap:Body>

</soap:Envelope>

Logre la conexión en el excel usando la opción DATOS + De otras fuentes + De la web, pero allí solo logro la conexión, llego a ver solo una respuesta básica. Según investigue no me va a servir esto, porque del otro lado tengo pdf, no datos en tabla

Intente armar en VBA , volcar esta info en una macro y activarla, pero mis conocimientos son básicos en VBA... nunca tuve la necesidad de conexión con webservice

Por lo que google, para lograr la conexión SOAP debo ir a Herramientas y referencia para adosar referencias al proyecto de tipo SOAP ( MSOLAP 7.0 Type Library o la .8)

En lo que me puedas orientar te agradeceré muchísimo.

Abrazo enorme y buen fin de semana

Abraham Valencia · el 5 de noviembre

Hola nuevamente

Realizar webscraping, que es lo que necesitas, no es cosa fácil y requiere más que conocimiento básico de VBA. Además, es mucho ensayo y error y entiendo que al tener usuario, clave y enlaces privados, no puedes compartirlos, por lo que hace más difícil aún ayudarte. Trata de leer sobre POST y MSXML2.XMLHTTP (o similar) y cuando se usa SOAP es bastante "enviar" etiquetas XML (como string) a través del SEND.