请知悉:本文最近一次更新为 9个月 前,文中内容可能已经过时。

比较少见的需求了,不过碰到了就整理下吧。本文整理的代码实现了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 = "https://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
😀
😀😁😂😅😭🤭😋😘🤔😰😱🤪💪👍👎🤝🌹👌