Dowiedziałem się ze skoroszytu Amazon Web Services, że niezwykle łatwo jest uzyskać dostęp do usługi sieciowej REST za pomocą VBA i zaimportować dane do listy XML.
Jednym z brakujących elementów po przejrzeniu skoroszytu Amazon było to, jak w razie potrzeby wysłać login i hasło z prośbą. Okazuje się bardzo proste. Aby wysłać login i hasło wystarczy dodać jedno dodatkowe polecenie WinHttpRequest.SetCredentials (przykładowy kod poniżej)
Ostatnio staram się poszerzyć swoją wiedzę o XML (lub jej brak), pracując nad projektem edukacyjnym z wykorzystaniem usług internetowych Bloglines, które umożliwiają żądania HTTP i zwracają XML (OPML, nieprzeczytane elementy itp.).
Krzywa uczenia się, którą napotkałem, polegała na tym, że zamiast po prostu przepychać XML przez mapę do komórek, chciałem użyć MSXML2 (parsera XML programu Excel), aby uzyskać całkowitą kontrolę nad danymi w celu wypełnienia widoków drzewa, list list i innych elementów UserForm.
Celem projektu jest przeczytanie moich subskrypcji blogów w Excelu (jestem gotowe w 60%), coś w rodzaju wersji EZRSS Colo firmy Colo, a następnie przeniesienie wysiłku do OutLook, kiedy skończę (kolejna krzywa uczenia się).
Oto przykładowy kod, który przenosi Twoje subskrypcje Bloglines do programu Excel, wysyła nazwę użytkownika i hasło w celu uwierzytelnienia:
'HttpRequest SetCredentials flagi. Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0 Private Sub ListSubs() Dim MyRequest As New WinHttpRequest MyRequest.Open "GET", _ "http://rpc.bloglines.com/listsubs" 'Ustaw poświadczenia MyRequest.SetCredentials "USERNAME", "PASSWORD", _ HTTPREQUEST_SETCREDENTIALS_FOR_SERVER ' Wyślij żądanie. MyRequest.Send 'Otrzymujemy tę odpowiedź MsgBox MyRequest.ResponseText End Sub
Uwagi:
Ustaw odwołanie do usług Microsoft WinHTTP
Zastąp USERNAME i PASSWORD swoimi informacjami z Bloglines
Spowoduje to zwrócenie XML do msgbox w celu demonstracji, możesz zaimportować mapę lub załadować do MSXML2.DOMDocument (mam działający kod, wciąż eksperymentuję, pójdę dalej). Oto fragment wiadomości msgbox:
