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

Question

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

Answer 1

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 các yêu cầu HTTP, bạn có thể sử dụng WinHttp.WinHttpRequest.5.1 ở vị trí của MSXML2.ServerXMLHTTP.

Answer 2

Bạn có thể sử dụng ServerXMLHTTP trong dự án VBA bằng cách thêm tham chiếu vào MSXML.

1. Mở VBA Editor (thường bằng cách chỉnh sửa một Macro)
2. Go vào danh sách các tài liệu tham khảo sẵn
3. Kiểm tra Microsoft XML
4. Bấm OK.

(từ Referencing MSXML within VBA Projects)

Các ServerXMLHTTP MSDN documentation 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, mặc dù nó hoạt động cơ bản như thế này:

1. Gọi open phương pháp để kết nối với máy chủ từ xa
2. Gọi send để gửi yêu cầu.
3. Đọc câu trả lời qua responseXML, responseText, responseStream hoặc responseBody

Answer 3

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 http://scriptorium.serve-it.nl/view.php?sid=40

Answer 4

QueryTables Nếu bạn cần nó để làm việc trên cả Mac và Windows, bạn có thể sử dụng:

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 nếu nó có thể trả về kết quả cho cùng một ô được gọi là hàm VBA. 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ả 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 đã VBA trở lại.

Để biết thêm chi tiết, bạn có thể xem tóm tắt đầy đủ của tôi về "using web services from Excel".

Answer 5

Ngoài các anwser của Bill the Lizard:

Hầu hết các phần phụ trợ phân tích các bài dữ liệu thô. Trong PHP ví dụ, bạn sẽ có một mảng $ _POST trong đó 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 thêm một header "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 bài dữ liệu thô trên biến "$ HTTP_RAW_POST_DATA".