Aprendí del libro de trabajo de Amazon Web Services que es extremadamente fácil acceder a un servicio web REST usando VBA e importar los datos a una lista XML.
Una pieza que faltaba después de ver el libro de Amazon era cómo enviar también un nombre de usuario y una contraseña con una solicitud si era necesario. Resulta ser muy simple. Para enviar un nombre de usuario y una contraseña, simplemente agregue un comando adicional WinHttpRequest.SetCredentials (código de ejemplo a continuación)
Últimamente he intentado mejorar mi conocimiento de XML (o la falta de él) trabajando en un proyecto de aprendizaje utilizando los servicios web de Bloglines, que permite solicitudes HTTP y devuelve XML (OPML, elementos no leídos, etc.).
La curva de aprendizaje que encontré fue en lugar de simplemente empujar el XML a través de un mapa a las celdas, quería usar MSXML2 (el analizador XML de Excel) para obtener un control total de los datos para completar Treeviews, Listboxes y otras cosas de UserForm.
El objetivo del proyecto es leer mis suscripciones de bloglines en Excel (ya terminé en un 60%), algo así como una versión de Bloglines de EZRSS de Colo, y luego posiblemente transferir el esfuerzo a OutLook cuando termine (otra curva de aprendizaje).
Aquí hay un código de ejemplo para extraer sus suscripciones de Bloglines a Excel, envía su nombre de usuario y contraseña para la autenticación:
'Indicadores HttpRequest SetCredentials. Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0 Sub ListSubs privados () Dim MyRequest As New WinHttpRequest MyRequest.Open "GET", _ "http://rpc.bloglines.com/listsubs" 'Establecer credenciales MyRequest.SetCredentials "USERNAME", "PASSWORD" HTTPREQUEST_SETCREDENTIALS_FOR_SERVER 'Enviar solicitud. MyRequest.Send 'Y obtenemos esta respuesta MsgBox MyRequest.ResponseText End Sub
Notas:
Establecer una referencia a los servicios WinHTTP de Microsoft
Reemplaza NOMBRE DE USUARIO y CONTRASEÑA con la información de tu Bloglines
Esto devuelve el XML a un msgbox para la demostración, puede importarlo en un mapa o cargarlo en un MSXML2.DOMDocument (tengo un código que funciona, todavía estoy experimentando, haré un seguimiento). Aquí hay un fragmento del msgbox:
