Iš „Amazon Web Services“ darbaknygės sužinojau, kad labai lengva pasiekti REST žiniatinklio paslaugą naudojant VBA ir importuoti duomenis į XML sąrašą.
Vienas trūkstamas elementas peržiūrėjus „Amazon“ darbaknygę buvo tai, kaip prireikus taip pat nusiųsti prisijungimo vardą ir slaptažodį su užklausa. Pasirodo labai paprasta. Norėdami išsiųsti prisijungimo vardą ir slaptažodį, tiesiog pridėkite vieną papildomą komandą WinHttpRequest.SetCredentials (pavyzdinis kodas žemiau)
Pastaruoju metu stengiuosi patobulinti savo XML žinias (arba jų trūkumą), dirbdamas prie mokymosi projekto, naudodamas „Bloglines Web Services“, kuris leidžia HTTP užklausas ir grąžina XML (OPML, neskaitytus elementus ir kt.).
Mokymosi kreivė, su kuria susidūriau, buvo ne tik stumti XML per žemėlapį į langelius, bet ir norėjau naudoti MSXML2 („Excel“ XML analizatorių), kad galėčiau visiškai kontroliuoti duomenis, kad užpildytų medžių rodinius, sąrašų dėžutes ir kitus „UserForm“ dalykus.
Projekto tikslas yra perskaityti mano tinklaraščių prenumeratas „Excel“ (baigiau 60 proc.), Tarsi „Colo's EZRSS“ „Bloglines“ versiją, o tada, kai baigsiu, galbūt perkelti pastangas į „OutLook“ (kita mokymosi kreivė).
Čia yra pavyzdinis kodas, skirtas „Bloglines“ prenumeratoms įtraukti į „Excel“, jis siunčia jūsų vartotojo vardą ir slaptažodį autentifikavimui:
„HttpRequest SetCredentials vėliavos. Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0 Privatūs Sub ListSubs () Dim MyRequest As New WinHttpRequest MyRequest.Open "GET", _ "http://rpc.bloglines.com/listsubs" 'Set credentials MyRequest.SetCredentials "USERNAME", "PASS HTTPREQUEST_SETCREDENTIALS_FOR_SERVER 'Siųsti užklausą. MyRequest.Send 'Ir mes gauname šį atsakymą MsgBox MyRequest.ResponseText End Sub
Pastabos:
Nustatykite nuorodą į „Microsoft WinHTTP Services“
Pakeiskite USERNAME ir PASSWORD savo „Bloglines“ informacija
Tai grąžina XML į „msgbox“ demonstravimui, galite importuoti žemėlapį arba įkelti į MSXML2.DOMDocument (turiu darbo kodą, vis dar eksperimentuoju, stebėsiu). Čia yra žinutės dėžutės fragmentas:
