Tôi học được từ sổ làm việc Amazon Web Services rằng việc truy cập REST Web Service bằng VBA và nhập dữ liệu vào danh sách XML là vô cùng dễ dàng.
Một điều còn thiếu sau khi xem sổ làm việc Amazon là cách gửi thông tin đăng nhập và mật khẩu cùng với một yêu cầu nếu cần. Hóa ra là rất đơn giản. Để gửi thông tin đăng nhập và mật khẩu, chỉ cần thêm một lệnh bổ sung WinHttpRequest.SetCredentials (Mã ví dụ bên dưới)
Gần đây, tôi đang cố gắng nâng cao kiến thức XML của mình (hoặc còn thiếu) bằng cách thực hiện một dự án học tập sử dụng Dịch vụ Web của Bloglines, cho phép các yêu cầu HTTP và trả về XML (OPML, Mục chưa đọc, v.v.).
Đường cong học tập mà tôi gặp phải là thay vì chỉ đẩy XML qua một bản đồ vào các ô, tôi muốn sử dụng MSXML2 (trình phân tích cú pháp XML của Excel) để giành toàn quyền kiểm soát dữ liệu để đưa vào Treeviews, Listbox và các nội dung UserForm khác.
Mục tiêu của dự án là đọc các đăng ký bloglines của tôi trong Excel (tôi đã hoàn thành 60%), giống như phiên bản Bloglines của Colo’s EZRSS, sau đó có thể chuyển nỗ lực sang OutLook khi tôi hoàn thành (một đường cong học tập khác).
Đây là mã ví dụ để kéo đăng ký Bloglines của bạn vào Excel, nó gửi Tên người dùng và Mật khẩu của bạn để xác thực:
Cờ 'HttpRequest SetCredentials. Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0 Private Sub ListSubs () Dim MyRequest As New WinHttpRequest MyRequest. Mở "GET", _ "http://rpc.bloglines.com/listsubs" 'Đặt thông tin đăng nhập MyRequest.SetCredentials "USERNAME", "PASSWORD" HTTPREQUEST_SETCREDENTIALS_FOR_SERVER 'Gửi Yêu cầu. MyRequest.Send 'Và chúng tôi nhận được phản hồi này MsgBox MyRequest.ResponseText End Sub
Ghi chú:
Đặt tham chiếu đến Dịch vụ Microsoft WinHTTP
Thay USERNAME và PASSWORD bằng thông tin Bloglines của bạn
Thao tác này trả lại XML vào hộp thư để trình diễn, bạn có thể nhập nó vào bản đồ hoặc tải nó vào MSXML2.DOMDocument (Tôi đã có mã làm việc, tôi vẫn đang thử nghiệm, tôi sẽ theo dõi). Đây là một đoạn mã của hộp thư:
