Como enviar request y leer xml de respuesta

Hola
Mira a ver sí esto te puede ayudar:
http://access.mvps.org/access/modules/mdl0037.htm

Salu2
José Mª Fueyo
[MS MVP Access]

Buenas,

Gracias por el enlace.

He probado pero por lo que veo el sube o descarga archivos desde
internet en ftp.

En mi caso se hace una consulta a la dirección descrita, como el
siguiente ejemplo:

http://contribuyente.seniat.gob.ve/...J000928630

Y se obtiene como respuesta documento xml en el explorador, de la
forma siguiente:

C.A. VENEZOLANA DE GUIAS (CA VENEZOLANA DE GUIAS CAVEGUIAS )SISI

Esta es la información que quiero capturar y manipular y que no sé
como hacer.

Gracias nuevamente.

Hola nuevamente
Este código te permitirá llamar a esa url, y recuperar el xml que devuelve en una variable de cadena.

<pego>
Public Sub ObtenerDatos(sURL as string)
Dim oHttp As Object
Set oHttp = CreateObject("Microsoft.XMLHTTP")
oHttp.Open "GET", sURL, False
oHttp.Send
If oHttp.Status < 300 Then
Dim sRespuesta As String
sRespuesta = oHttp.responseText
Debug.Print sRespuesta
End If
End Sub
</pego>

Para el manipulado del xml devuelto, mira esto
http://social.msdn.microsoft.com/fo...1333748509

Salu2
José Mª Fueyo
[MS MVP Access]

Buenas tardes,

Gracias nuevamente.

Estaba usando los ejemplos de los siguientes links:

http://stackoverflow.com/questions/...te-binding

http://www.tek-tips.com/viewthread.cfm?qid63400

Solo me falta solventar un tiempo de espera para que pueda "refrescar"
el llamado, es decir, me da un error pero observo que al pasar un
corto tiempo y seguir corriendo la rutina obtengo los datos.

Probaré la opción que me ofrece y les comento.

Muchas gracias nuevamente.

Hola
Puedes jugar con la propiedad ReadyState. Sí no es 4, haces un bucle con un DoEvents

Dim oHttp As Object
Set oHttp = CreateObject("Microsoft.XMLHTTP")
Dim sURL As String
sURL = "http://contribuyente.seniat.gob.ve/...8630"
oHttp.Open "GET", sURL, False
oHttp.Send
While oHttp.readyState <> 4
DoEvents
Wend
If oHttp.Status = 200 Then
Dim sRespuesta As String
sRespuesta = oHttp.responseText
Debug.Print sRespuesta
End If

Salu2
José Mª Fueyo
[MS MVP Access]