VBA 发送 GET/POST 请求并解析 json 数据

最新推荐文章于 2025-07-01 00:02:31 发布

風の唄を聴け

最新推荐文章于 2025-07-01 00:02:31 发布

阅读量2.7w

点赞数 14

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： VBA GET/POST json解析

本文链接：https://blog.youkuaiyun.com/weixin_42902669/article/details/89308309

本文介绍了如何在VBA中发送GET和POST请求，并详细讲解了如何解析返回的JSON数据。在64位Excel环境中，由于一些方法不适用，文章提供了相应的解决策略。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1. 发送 GET 请求

'以GET方式上传数据
Function uploadData1(ByVal url As String)
    Dim http
    Set http = CreateObject("Microsoft.XMLHTTP")

    http.Open "GET", url, False
    http.send
    uploadData1 = http.Status
End Function

2. 发送 POST 请求

'以POST方式上传数据
Function uploadData2(ByVal url As String, ByVal data As String)
    Dim http
    Set http = CreateObject("Microsoft.XMLHTTP")
  
    http.Open "POST", url, False
    http.setRequestHeader "CONTENT-TYPE", "application/json"
    http.send (data)  'data为JSON字符串, 评论区有人说需要对data加小括号, 我自己的情况是加不加都可以, 这里姑且加上
    uploadData2 = http.Status
End Function

3. 发送 GET 请求并解析返回的 josn 数据

Function getData(ByVal url As String, sht As Worksheet, ByVal rowNum As Integer, ByVal colNum As Integer)
    Dim http As Object   
    Set http = CreateObject("Microsoft.XMLHTTP")     ' 创建 http 对象以发送请求
    http.Ope