[VBA] 接收和解析 JSON

最新推荐文章于 2024-08-09 14:42:50 发布

風の唄を聴け

最新推荐文章于 2024-08-09 14:42:50 发布

阅读量5.9k

点赞数 3

分类专栏： VBA 文章标签： VBA 解析JSON

本文链接：https://blog.csdn.net/weixin_42902669/article/details/90473624

版权

本文详细介绍了如何使用VBA来接收和解析JSON数据，并将解析后的数据填充到Excel表格中，包括接收JSON、解析JSON的过程，以及64位Excel环境下解析JSON的特殊处理。

摘要由CSDN通过智能技术生成

本文记录一下用 VBA 接收和解析 JSON, 并把解析到的数据填入 Excel 表格的整套流程

1. 接收 JSON

Function GetJsonByUrl(ByVal url As String)
    Application.DefaultWebOptions.Encoding = msoEncodingUTF8

    Dim http
    Set http = CreateObject("Microsoft.XMLHTTP")
    http.Open "GET", url, False
    'http.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
    http.send
    If http.Status = 200 Then
        Dim json$
        json = http.responseText
        GetJsonByUrl= json
    End If
End Function

2. 解析 JSON

下面是一个处理 json 字符串的函数

'json = {"a":["a1","a2","a3"], "count":3}
Function ParseJSON(ByVal json As String)
	'Set objSC = CreateObject("ScriptControl")  '用于32位Excel
	Set objSC = CreateObjectx86("MSScriptControl.ScriptControl")  '用于64位Excel, 不过需要引入另一个模块