比较少见的需求了,不过碰到了就整理下吧。本文整理的代码实现了POST查询功能。

完整示例代码如下:

Private Sub cmdKirimGET_Click()
Dim strResult As String
Dim objHTTP As Object
Dim URL As String
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://localhost/search.php"
objHTTP.Open "GET", 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 ("keyword=php")
strResult = objHTTP.responseText
Worksheets("Sheet1").Range("A10:A10") = strResult
End Sub

感觉GET改成POST也能用的说,有需要的自行举一反三吧。


参考资料

Using Excel VBA to Send HTTP GET Request to Web Server


如您从本文得到了有价值的信息或帮助,请考虑扫描文末的二维码对我进行赞赏和鼓励。

与《VBS Excel 宏 VBA 发送HTTP请求 示例代码》相关的博文:


留言

Admin Avatar