Am aflat din registrul de lucru Amazon Web Services că este extrem de ușor să accesați un serviciu web REST folosind VBA și să importați datele într-o listă XML.
O piesă lipsă după vizualizarea registrului de lucru Amazon a fost cum să trimiteți, de asemenea, o autentificare și o parolă cu o cerere, dacă este necesar. Se dovedește a fi foarte simplu. Pentru a trimite un login și o parolă, trebuie doar să adăugați o comandă suplimentară WinHttpRequest.SetCredentials (Exemplu de cod mai jos)
În ultimul timp am încercat să-mi îmbunătățesc cunoștințele XML (sau lipsa acestora) lucrând la un proiect de învățare folosind Bloglines Web Services, care permite solicitări HTTP și returnează XML (OPML, Articole necitite etc.).
Curba de învățare pe care am întâlnit-o a fost, în loc să împing pur și simplu XML-ul printr-o hartă în celule, am vrut să folosesc MSXML2 (analizorul XML al Excel) pentru a obține controlul total al datelor pentru a popula Treeviews, Listboxes și alte lucruri UserForm.
Scopul proiectului este să citesc abonamentele mele la bloglines în Excel (am terminat cu 60%), ca o versiune Bloglines a EZRSS a lui Colo, apoi să portez efortul către OutLook când am terminat (o altă curbă de învățare).
Iată un exemplu de cod pentru a vă trage abonamentele Bloglines în Excel, acesta vă trimite numele de utilizator și parola pentru autentificare:
'Steaguri HttpRequest SetCredentials. 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", _ PASSWORD HTTPREQUEST_SETCREDENTIALS_FOR_SERVER 'Trimiteți cererea. MyRequest.Send 'Și primim acest răspuns MsgBox MyRequest.ResponseText End Sub
Note:
Setați o referință la Microsoft WinHTTP Services
Înlocuiți USERNAME și PASSWORD cu informațiile dvs. Bloglines
Aceasta returnează XML-ul într-un msgbox pentru demonstrare, îl puteți importa o hartă sau îl puteți încărca într-un MSXML2.DOMDocument (am cod de lucru, încă experimentez, voi continua). Iată un fragment din msgbox:
