Jeg lærte af Amazon Web Services -projektmappen, at det er ekstremt let at få adgang til en REST -webtjeneste ved hjælp af VBA og importere dataene til en XML -liste.
Et manglende stykke efter at have set Amazon -projektmappen var, hvordan man også sender et login og kodeord med en anmodning, hvis det er nødvendigt. Det viser sig at være meget enkelt. For at sende et login og kodeord skal du blot tilføje en ekstra kommando WinHttpRequest.SetCredentials (eksempelkode nedenfor)
Jeg har forsøgt at forbedre min XML -viden på det seneste (eller mangel på det) ved at arbejde på et læringsprojekt ved hjælp af Bloglines Web Services, som tillader HTTP -anmodninger og returnerer XML (OPML, ulæste elementer osv.).
Læringskurven, jeg stødte på, var i stedet for blot at skubbe XML'en gennem et kort ind i celler, jeg ville bruge MSXML2 (Excel's XML -parser) til at få total kontrol over dataene til at udfylde Treeviews, Listboxes og andre UserForm -ting.
Projektmålet er at læse mine bloglines -abonnementer i Excel (jeg er 60% færdig), sådan som en Bloglines -version af Colos EZRSS og derefter muligvis overføre indsatsen til OutLook, når jeg er færdig (endnu en indlæringskurve).
Her er eksempelkode til at trække dine Bloglines -abonnementer ind i Excel, det sender dit brugernavn og adgangskode til godkendelse:
'HttpRequest SetCredentials -flag. Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0 Private Sub ListSubs () Dim MyRequest As New WinHttpRequest MyRequest.Open "GET", _ "http://rpc.bloglines.com/listsubs" 'Set credentials MyRequest.SetCredentials "USERNAME", "PASS" HTTPREQUEST_SETCREDENTIALS_FOR_SERVER 'Send anmodning. MyRequest.Send 'Og vi får dette svar MsgBox MyRequest.ResponseText End Sub
Bemærkninger:
Angiv en reference til Microsoft WinHTTP Services
Erstat USERNAME og PASSWORD med dine Bloglines -oplysninger
Dette returnerer XML til en msgbox til demonstration, du kan importere et kort eller indlæse det i et MSXML2.DOMDocument (jeg har arbejdskode, jeg eksperimenterer stadig, jeg følger op). Her er et udsnit af msgboxen:
