1、添加如下代码'用于解析JSON串'param jsonString:要从中获取数据的夼猿勇麒JSON字符串'param key:要获取值的键'note:仅用于只有一层{}的、没有其他{}或[]的JSONFunction 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")即可得到对应的数据