Ze sešitu Amazon Web Services jsem se dozvěděl, že je velmi snadné získat přístup k webové službě REST pomocí VBA a importovat data do seznamu XML.
Jeden chybějící kousek po prohlížení sešitu Amazonu bylo, jak v případě potřeby také odeslat přihlašovací jméno a heslo s požadavkem. Ukázalo se, že je to velmi jednoduché. Chcete -li odeslat přihlašovací jméno a heslo, stačí přidat jeden další příkaz WinHttpRequest.SetCredentials (ukázkový kód níže)
V poslední době se snažím zlepšit své znalosti XML (nebo jeho nedostatek) prací na vzdělávacím projektu pomocí Weblines Bloglines, který umožňuje požadavky HTTP a vrací XML (OPML, nepřečtené položky atd.).
Učební křivka, se kterou jsem se setkal, byla namísto prostého tlačení XML přes mapu do buněk, chtěl jsem použít MSXML2 (analyzátor XML aplikace Excel), abych získal úplnou kontrolu nad daty k naplnění Treeviews, Listboxes a dalších věcí UserForm.
Cílem projektu je přečíst si předplatné mých bloglines v Excelu (jsem hotový na 60%), podobně jako verze Cololines EZRSS na Bloglines, a případně přenést úsilí na OutLook, až skončím (další křivka učení).
Zde je ukázkový kód pro stažení vašich předplatných Bloglines do Excelu, odešle vaše uživatelské jméno a heslo pro autentizaci:
„Příznaky 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 'Žádost o odeslání. MyRequest.Send 'A dostáváme tuto odpověď MsgBox MyRequest.ResponseText End Sub
Poznámky:
Nastavte odkaz na služby Microsoft WinHTTP
Nahraďte USERNAME a PASSWORD informacemi o vašich Bloglines
Tím se XML vrátí do msgboxu pro ukázku, můžete mu importovat mapu nebo jej načíst do dokumentu MSXML2.DOMDocent (mám pracovní kód, stále experimentuji, budu sledovat). Zde je úryvek z msgboxu: