Làm cách nào tôi có thể gửi yêu cầu POST HTTP đến máy chủ từ Excel bằng VBA?

Mã VBA nào được yêu cầu để thực hiện POST HTTP từ bảng tính Excel?

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send("")

Ngoài ra, để kiểm soát tốt hơn yêu cầu HTTP, bạn có thể sử dụng WinHttp.WinHttpRequest.5.1thay thế MSXML2.ServerXMLHTTP.

Nếu bạn cần nó để hoạt động trên cả Mac và Windows, bạn có thể sử dụng QueryTables:

With ActiveSheet.QueryTables.Add(Connection:="URL;http://carbon.brighterplanet.com/flights.txt", Destination:=Range("A2"))
    .PostText = "origin_airport=MSN&destination_airport=ORD"
    .RefreshStyle = xlOverwriteCells
    .SaveData = True
    .Refresh
End With

Ghi chú:

• Về đầu ra ... Tôi không biết liệu có thể trả kết quả về cùng một ô được gọi là hàm VBA hay không. Trong ví dụ trên, kết quả được viết thành A2.
• Về đầu vào ... Nếu bạn muốn kết quả được làm mới khi bạn thay đổi một số ô nhất định, hãy đảm bảo các ô đó là đối số cho hàm VBA của bạn.
• Điều này sẽ không hoạt động trên Excel cho Mac 2008, không có VBA. Excel cho Mac 2011 đã trở lại VBA.

Để biết thêm chi tiết, bạn có thể xem tóm tắt đầy đủ của tôi về " sử dụng dịch vụ web từ Excel ."

Ngoài anwser của Bill the Lizard :

Hầu hết các phụ trợ phân tích dữ liệu bài thô. Trong PHP chẳng hạn, bạn sẽ có một mảng $_POSTtrong đó các biến riêng lẻ trong dữ liệu bài đăng sẽ được lưu trữ. Trong trường hợp này, bạn phải sử dụng một tiêu đề bổ sung "Content-type: application/x-www-form-urlencoded":

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHTTP.send ("var1=value1&var2=value2&var3=value3")

Nếu không, bạn phải đọc dữ liệu bài thô trên biến "$HTTP_RAW_POST_DATA".

Bạn có thể sử dụng ServerXMLHTTPtrong một dự án VBA bằng cách thêm một tham chiếu đến MSXML.

1. Mở Trình chỉnh sửa VBA (thường bằng cách chỉnh sửa Macro)
2. Chuyển đến danh sách các tài liệu tham khảo có sẵn
3. Kiểm tra Microsoft XML
4. Nhấn OK.

(từ Tham khảo MSXML trong các Dự án VBA )

Các tài liệu ServerXMLHTTP MSDN có đầy đủ chi tiết về tất cả các thuộc tính và phương pháp ServerXMLHTTP.

Nói tóm lại, nó hoạt động cơ bản như thế này:

1. Gọi phương thức mở để kết nối với máy chủ từ xa
2. Gọi gửi để gửi yêu cầu.
3. Đọc phản hồi thông qua answerXML , answerText , answerStream hoặc answerBody

Để hoàn thành phản hồi của những người dùng khác:

Đối với điều này, tôi đã tạo ra một "WinHttp.WinHttpRequest.5.1" đối tượng .

Gửi yêu cầu bài đăng với một số dữ liệu từ Excel bằng VBA:

Dim LoginRequest As Object
Set LoginRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
LoginRequest.Open "POST", "http://...", False
LoginRequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
LoginRequest.send ("key1=value1&key2=value2")

Gửi yêu cầu nhận xác thực mã thông báo từ Excel bằng VBA:

Dim TCRequestItem As Object
Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
TCRequestItem.Open "GET", "http://...", False
TCRequestItem.setRequestHeader "Content-Type", "application/xml"
TCRequestItem.setRequestHeader "Accept", "application/xml"
TCRequestItem.setRequestHeader "Authorization", "Bearer " & token
TCRequestItem.send

Tôi đã làm điều này trước khi sử dụng thư viện MSXML và sau đó sử dụng đối tượng XMLHttpRequest, xem tại đây .