Научих от работната книга на Amazon Web Services, че е изключително лесно да получите достъп до REST уеб услуга с помощта на VBA и да импортирате данните в XML списък.
Едно липсващо парче след разглеждане на работната книга на Amazon беше как също да изпратите потребителско име и парола с искане, ако е необходимо. Оказва се, че е много просто. За да изпратите потребителско име и парола, просто добавете една допълнителна команда WinHttpRequest.SetCredentials (Примерен код по -долу)
Напоследък се опитвам да подобря знанията си за XML (или липсата им), като работя върху учебен проект, използвайки уеб услугите на Bloglines, който позволява HTTP заявки и връща XML (OPML, непрочетени елементи и т.н.).
Кривата на обучение, която срещнах, беше вместо просто да избутвам XML през карта в клетки, исках да използвам MSXML2 (XML анализатор на Excel), за да получа пълен контрол върху данните, за да попълня Treeviews, Listboxes и други неща на UserForm.
Целта на проекта е да прочета моите абонаменти за блогове в Excel (свърших 60%), нещо като версия на Bloglines на EZRSS на Colo, след което евентуално да прехвърля усилията към OutLook, когато приключа (друга крива на обучение).
Ето примерен код за изтегляне на вашите абонаменти за Bloglines в Excel, той изпраща вашето потребителско име и парола за удостоверяване:
'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 "USERW, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER 'Заявка за изпращане. MyRequest.Send 'И получаваме този отговор MsgBox MyRequest.ResponseText End Sub
Бележки:
Задайте препратка към Microsoft WinHTTP Services
Заменете USERNAME и PASSWORD с вашата информация за Bloglines
Това връща XML в msgbox за демонстрация, можете да го импортирате карта или да го заредите в MSXML2.DOMDocument (Имам работещ код, все още експериментирам, ще продължа). Ето фрагмент от msgbox:
