VBA如何解析JSON
经常使用EXCEL的人慢慢会不再局限于数据仅仅来自于各种数据表,部分数据有可能来自于网络或是API,而正常情况下,JSON作为一种比较普遍的数据交换格式无疑会经常遇到,这里简单说下VBA如何获取没有对象、没有数组的JSON里面的值
操作方法
- 01
添加如下代码 '用于解析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
- 02
假如我们得到的数据是这样子的: Dim str="{""usrName"":""lili""}" 要获取name的值 Dim nameString=getJob(str,"usrName") 即可得到对应的数据
赞 (0)