J'ai appris du classeur Amazon Web Services qu'il est extrêmement facile d'accéder à un service Web REST à l'aide de VBA et d'importer les données dans une liste XML.
Une pièce manquante après avoir consulté le classeur Amazon était de savoir comment envoyer également un identifiant et un mot de passe avec une demande si nécessaire. S'avère être très simple. Pour envoyer un identifiant et un mot de passe, ajoutez simplement une commande supplémentaire WinHttpRequest.SetCredentials (exemple de code ci-dessous)
J'ai récemment essayé d'améliorer mes connaissances XML (ou mon absence) en travaillant sur un projet d'apprentissage utilisant les services Web Bloglines, qui autorisent les requêtes HTTP et renvoient XML (OPML, éléments non lus, etc.).
La courbe d'apprentissage que j'ai rencontrée était au lieu de simplement pousser le XML à travers une carte dans des cellules, je voulais utiliser MSXML2 (l'analyseur XML d'Excel) pour obtenir le contrôle total des données pour remplir les Treeviews, les Listbox et d'autres éléments UserForm.
L'objectif du projet est de lire mes abonnements aux bloglines dans Excel (j'ai terminé à 60%), un peu comme une version Bloglines de l'EZRSS de Colo, puis éventuellement de porter l'effort sur OutLook lorsque j'ai terminé (une autre courbe d'apprentissage).
Voici un exemple de code pour extraire vos abonnements Bloglines dans Excel, il envoie votre nom d'utilisateur et votre mot de passe pour l'authentification :
'HttpRequest SetCredentials flags. Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0 Private Sub ListSubs() Dim MyRequest As New WinHttpRequest MyRequest.Open "GET", _ "http://rpc.bloglines.com/listsubs" 'Définir les informations d'identification MyRequest.SetCredentials "USERNAME", "PASSWORD", _ HTTPREQUEST_SETCREDENTIALS_FOR_SERVER ' Envoyer la demande. MyRequest.Send 'Et nous obtenons cette réponse MsgBox MyRequest.ResponseText End Sub
Remarques:
Définir une référence aux services Microsoft WinHTTP
Remplacez USERNAME et PASSWORD par vos informations Bloglines
Cela renvoie le XML dans une msgbox pour démonstration, vous pouvez l'importer une carte ou le charger dans un MSXML2.DOMDocument (j'ai du code fonctionnel, je suis toujours en train d'expérimenter, je ferai le suivi). Voici un extrait de la msgbox :
