Ik heb uit de Amazon Web Services-werkmap geleerd dat het uiterst eenvoudig is om toegang te krijgen tot een REST-webservice met VBA en de gegevens te importeren in een XML-lijst.
Een ontbrekend stukje na het bekijken van de Amazon-werkmap was hoe je indien nodig ook een login en wachtwoord met een verzoek kunt verzenden. Het blijkt heel simpel te zijn. Om een login en wachtwoord te verzenden, hoeft u slechts één extra opdracht toe te voegen WinHttpRequest.SetCredentials (voorbeeldcode hieronder)
Ik heb de laatste tijd geprobeerd mijn XML-kennis (of het gebrek daaraan) te verbeteren door aan een leerproject te werken met behulp van de Bloglines-webservices, die HTTP-verzoeken toestaat en XML retourneert (OPML, ongelezen items, enz.).
De leercurve die ik tegenkwam, was dat in plaats van de XML simpelweg door een kaart in cellen te duwen, ik MSXML2 (Excel's XML-parser) wilde gebruiken om totale controle over de gegevens te krijgen om Treeviews, Listboxes en andere UserForm-dingen te vullen.
Het doel van het project is om mijn bloglines-abonnementen in Excel te lezen (ik ben voor 60% klaar), een beetje als een Bloglines-versie van Colo's EZRSS, en mogelijk de inspanning over te dragen naar OutLook wanneer ik klaar ben (nog een leercurve).
Hier is een voorbeeldcode om uw Bloglines-abonnementen in Excel te trekken, het stuurt uw gebruikersnaam en wachtwoord voor authenticatie:
'HttpRequest SetCredentials-vlaggen. Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0 Private Sub ListSubs() Dim MyRequest As New WinHttpRequest MyRequest.Open "GET", _ "http://rpc.bloglines.com/listsubs" 'Inloggegevens instellen MyRequest.SetCredentials "USERNAME", "PASSWORD", _ HTTPREQUEST_SETCREDENTIALS_FOR_SERVER ' Verzoek verzenden. MyRequest.Send 'En we krijgen dit antwoord MsgBox MyRequest.ResponseText End Sub
Opmerkingen:
Stel een verwijzing in naar Microsoft WinHTTP Services
Vervang GEBRUIKERSNAAM en WACHTWOORD door uw Bloglines-info
Dit retourneert de XML naar een msgbox voor demonstratie, je kunt het een kaart importeren of het in een MSXML2.DOMDocument laden (ik heb werkende code, ik ben nog steeds aan het experimenteren, ik zal het opvolgen). Hier is een fragment van de msgbox:
