Έμαθα από το βιβλίο εργασίας του Amazon Web Services ότι είναι εξαιρετικά εύκολο να αποκτήσετε πρόσβαση σε μια υπηρεσία Web REST χρησιμοποιώντας VBA και να εισαγάγετε τα δεδομένα σε μια λίστα XML.
Ένα κομμάτι που λείπει μετά την προβολή του βιβλίου εργασίας του Amazon ήταν πώς να στείλετε επίσης μια σύνδεση και έναν κωδικό πρόσβασης με ένα αίτημα εάν χρειαστεί. Αποδεικνύεται πολύ απλό. Για να στείλετε ένα όνομα χρήστη και έναν κωδικό πρόσβασης, προσθέστε μόνο μια επιπλέον εντολή WinHttpRequest.SetCredentials (Παράδειγμα κώδικα παρακάτω)
Προσπαθώ να βελτιώσω τις γνώσεις μου για XML τον τελευταίο καιρό (ή την έλλειψή του) δουλεύοντας σε ένα εκπαιδευτικό έργο χρησιμοποιώντας τις Υπηρεσίες Web Bloglines, το οποίο επιτρέπει αιτήματα HTTP και επιστρέφει XML (OPML, Μη αναγνωσμένα στοιχεία κ.λπ.).
Η καμπύλη μάθησης που συνάντησα ήταν αντί να σπρώχνω την XML μέσω ενός χάρτη στα κελιά, ήθελα να χρησιμοποιήσω το MSXML2 (εργαλείο ανάλυσης XML του Excel) για να αποκτήσω τον πλήρη έλεγχο των δεδομένων για τη συμπλήρωση Treeviews, Listboxes και άλλα πράγματα του UserForm.
Ο στόχος του έργου είναι να διαβάσω τις συνδρομές μου στο Excel (έχω ολοκληρώσει το 60%), περίπου σαν μια έκδοση Bloglines του EZRSS του Colo, και στη συνέχεια να μεταφέρω την προσπάθεια στο OutLook όταν τελειώσω (άλλη καμπύλη εκμάθησης).
Ακολουθεί παράδειγμα κώδικα για να τραβήξετε τις συνδρομές σας στο Bloglines στο Excel, στέλνει το όνομα χρήστη και τον κωδικό πρόσβασής σας για έλεγχο ταυτότητας:
"HttpRequest SetCredentials flags. Κατασκευή HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0 Ιδιωτικά Υπο -ΛίσταSubs () Dim MyRequest As New WinHttpRequest MyRequest.Open "GET", _ "http://rpc.bloglines.com/listsubs" 'Set credentials MyRequest.SetCredit ", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER 'Αποστολή αιτήματος. MyRequest.Send 'Και παίρνουμε αυτήν την απάντηση MsgBox MyRequest.ResponseText End Sub
Σημειώσεις:
Ορίστε μια αναφορά στις υπηρεσίες Microsoft WinHTTP
Αντικαταστήστε το USERNAME και το PASSWORD με τις πληροφορίες των γραμμών ιστολογίου σας
Αυτό επιστρέφει το XML σε ένα msgbox για επίδειξη, μπορείτε να το εισαγάγετε σε χάρτη ή να το φορτώσετε σε ένα MSXML2.DOMDocument (έχω κώδικα εργασίας, εξακολουθώ να πειραματίζομαι, θα συνεχίσω). Εδώ είναι ένα απόσπασμα του msgbox:
