З робочої книги Amazon Web Services я дізнався, що отримати доступ до веб -служби REST за допомогою VBA та імпортувати дані до списку XML надзвичайно легко.
Однією з частин, що пропала після перегляду робочої книги Amazon, було те, як при необхідності надіслати логін і пароль із запитом. Виявляється, дуже просто. Щоб надіслати логін і пароль, просто додайте одну додаткову команду WinHttpRequest.SetCredentials (Приклад коду нижче)
Останнім часом я намагаюся вдосконалити свої знання XML (або їх відсутність), працюючи над навчальним проектом за допомогою веб -служб Bloglines, що дозволяє запити HTTP та повертає XML (OPML, непрочитані елементи тощо).
Крива навчання, з якою я зіткнувся, замість того, щоб просто просувати XML через карту в клітинки, я хотів використати MSXML2 (синтаксичний аналізатор XML Excel), щоб отримати повний контроль над даними для заповнення переглядів дерев, вікон списків та інших матеріалів UserForm.
Метою проекту є прочитати мої підписки на рядки блогу в Excel (я виконав 60%), щось на зразок версії EZRSS від Bloglines, а потім, можливо, перенести зусилля до 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 "USERWAY, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER 'Запит на надсилання. MyRequest.Send 'І ми отримуємо цю відповідь MsgBox MyRequest.ResponseText End Sub
Примітки:
Встановіть посилання на служби Microsoft WinHTTP
Замініть USERNAME та PASSWORD на інформацію про свої рядки Bloglog
Це повертає XML у скриньку повідомлень для демонстрації, ви можете імпортувати його карту або завантажити в MSXML2.DOMDocument (у мене робочий код, я все ще експериментую, я продовжу). Ось фрагмент повідомлення msgbox:
