WinHttpRequest s prijavom i lozinkom - Razno Bloglines - Primjeri VBA koda

Sadržaj

Iz radne knjige Amazon Web Services saznao sam da je iznimno lako pristupiti REST web usluzi pomoću VBA i uvesti podatke na XML popis.

Jedan dio koji nedostaje nakon pregleda Amazonove radne knjige bio je kako poslati i prijavu i lozinku sa zahtjevom ako je potrebno. Ispostavilo se da je vrlo jednostavno. Da biste poslali prijavu i lozinku, samo dodajte još jednu naredbu WinHttpRequest.SetCredentials (Primjer koda ispod)

U posljednje vrijeme pokušavam poboljšati svoje znanje o XML -u (ili njegov nedostatak) radeći na projektu učenja koristeći Bloglines Web Services, koji dopušta HTTP zahtjeve i vraća XML (OPML, nepročitane stavke itd.).

Krivulja učenja na koju sam naišao bila je umjesto jednostavnog guranja XML -a kroz kartu u ćelije, htio sam upotrijebiti MSXML2 (Excelov XML parser) za potpunu kontrolu nad podacima za popunjavanje prikaza stabala, okvira s popisima i drugih stvari iz korisničkog obrasca.

Cilj projekta je pročitati moje pretplate na blogove u Excelu (60% sam gotov), ​​nešto poput Bloglines verzije Coloovog EZRSS -a, a zatim eventualno prenijeti trud na OutLook kad završim (druga krivulja učenja).

Evo primjera koda za povlačenje vaših pretplata na Bloglines u Excel, koji šalje vaše korisničko ime i lozinku za provjeru autentičnosti:

 'Zastavice HttpRequest SetCredentials. Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0 Privatni pod -popisi SubSub () Zatamni MyRequest kao novi WinHttpRequest MyRequest.Otvorite "GET", _ "http://rpc.bloglines.com/listsubs" 'Postavi vjerodajnice MyRequest.SetCredentials "PORODIČ", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER 'Zahtjev za slanje. MyRequest.Send 'I dobivamo ovaj odgovor MsgBox MyRequest.ResponseText End Sub 

Bilješke:

Postavite referencu na Microsoft WinHTTP Services

Zamijenite USERNAME i PASSWORD svojim podacima o Bloglinesu

Ovo vraća XML u okvir za poruke za demonstraciju, možete ga uvesti u kartu ili učitati u MSXML2.DOMDocument (Imam radni kod, još uvijek eksperimentiram, nastavit ću). Evo isječka msgbox -a:

Vi ćete pomoći u razvoju web stranice, dijeljenje stranicu sa svojim prijateljima

wave wave wave wave wave