Научио сам из радне књиге Амазон Веб Сервицес да је изузетно лако приступити РЕСТ веб услузи помоћу ВБА и увести податке на КСМЛ листу.
Један део који недостаје након прегледа Амазонове радне свеске био је како такође послати пријаву и лозинку са захтевом ако је потребно. Испоставило се да је врло једноставно. Да бисте послали пријаву и лозинку, само додајте још једну наредбу ВинХттпРекуест.СетЦредентиалс (Пример кода испод)
У последње време покушавам да побољшам своје знање о КСМЛ -у (или његов недостатак) радећи на пројекту учења користећи Блоглинес Веб Сервицес, који дозвољава ХТТП захтеве и враћа КСМЛ (ОПМЛ, непрочитане ставке итд.).
Крива учења коју сам наишао је уместо да једноставно угурам КСМЛ кроз мапу у ћелије, хтео сам да користим МСКСМЛ2 (Екцел -ов КСМЛ парсер) да добијем потпуну контролу над подацима за попуњавање приказа стабала, оквира са списковима и других ствари из УсерФорма.
Циљ пројекта је да прочитам своје претплате на блогове у Екцел -у (60% сам завршио), нешто попут Блоглинес -ове верзије Цоло -овог ЕЗРСС -а, а затим евентуално пребацим напоре на ОутЛоок када завршим (друга крива учења).
Ево примера кода за повлачење ваших претплата на Блоглинес у Екцел, који шаље ваше корисничко име и лозинку за потврду идентитета:
'Заставице ХттпРекуест СетЦредентиалс. Цонст ХТТПРЕКУЕСТ_СЕТЦРЕДЕНТИАЛС_ФОР_СЕРВЕР = 0 Привате Суб ЛистСубс () Дим МиРекуест Ас Нев ВинХттпРекуест МиРекуест.Опен "ГЕТ", _ "хттп://рпц.блоглинес.цом/листсубс" 'Сет цредентиалс МиРекуест.СетЦредентиалс "УСЕРВАИ, ХТТПРЕКУЕСТ_СЕТЦРЕДЕНТИАЛС_ФОР_СЕРВЕР 'Пошаљи захтев. МиРекуест.Сенд 'И добијамо овај одговор МсгБок МиРекуест.РеспонсеТект Енд Суб
Напомене:
Подесите референцу на Мицрософт ВинХТТП услуге
Замените УСЕРНАМЕ и ПАССВОРД својим подацима о Блоглинес
Ово враћа КСМЛ у мсгбок за демонстрацију, можете га увести у мапу или учитати у МСКСМЛ2.ДОМДоцумент (Имам радни код, још увек експериментишем, пратит ћу даље). Ево исечка мсгбок -а:
