VBA如何解析JSON

1、添加如下代码

'用于解析JSON串

'param jsonString:要从中获取数据的JSON字符串

'param key:要获取值的键

'note:仅用于只有一层{}的、没有其他{}或[]的JSON

Function getJob(jsonString As String, key As String)

    Dim strFunc, objSC, objJSON

    Set objSC = CreateObject("ScriptControl")

    objSC.Language = "JScript"

    strFunc = "function getjson(s) { return eval('(' + s + ')'); }"

    objSC.AddCode strFunc

    getJob = CallByName(objSC.codeobject.getjson(jsonString), key, VbGet)

End Function

2、假如我们得到的数据是这样子的：

Dim str="{""usrName"":""lili""}"

要获取name的值

Dim nameString=getJob(str,"usrName")

即可得到对应的数据