VBS Excel 宏 VBA 发送HTTP请求 示例代码

作者：时鹏亮 | 更新时间：11/15/2021 08:51:05
请知悉：本文最近一次更新为 2年 前，文中内容可能已经过时。

比较少见的需求了，不过碰到了就整理下吧。本文整理的代码实现了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请求 示例代码》相关的博文：

留言

avatar
😀
😀😁😂😅😭🤭😋😘🤔😰😱🤪💪👍👎🤝🌹👌