VBA把JSON字符串转为数组，在VBA中解析JSON对象数组为VBA数组对象

已于 2022-09-24 15:12:31 修改
阅读量1.5k 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： VBA 文章标签： json
于 2022-04-07 22:37:42 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/lchgwp100/article/details/124028357
该博客展示了如何在VBA中将JSON字符串转换为数组对象。内容包括一个成功的示例，显示了如何将特定格式的JSON数据写入VBA数组，并提供了相应的VBA函数代码。

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

这是运行时的图片，成功写入到VBA数组当中： 

这是示例所用到的JSON字符串格式：[{"id":"2","company_id":"2","unionid":"oelU1580WNgE9YAUC2r4QUZgTw74","Disable":"0","nickname":"AndyLee","sex":"男","province":"福建","city":"莆田市","town":"涵江区","address":"国欢镇沁西村沁西工业园","headimg_id":"121","remark":"莆田市畅源印刷-贴标吊牌不干胶-实习管理员","tag":null,"groupid":"09","mobile":"151592*****","email":"andy@cytag.cn","password":"01920236f069df18b5516f069df18b500","createtime":"1541680223","realname":"李*华","birthyear":"1982","birthmonth":"5","birthday":"20","endtime":"1641298659"}] 

VBA函数代码如下：

'-------------------------------------------------------------------------------------------------
'VBA把JSON字符串转为数组，在VBA中解析JSON对象数组为VBA数组对象
'Andy 2022.04.07
'----------------------------------------------------------------
最低0.47元/天 解锁文章

200万优质内容无限畅学
vba把json转数组中_通过VBA解析Json数组
weixin_39621488的博客
12-22 770
I am getting a json response from an api and parse it to update in excel. Below is the code. I am not able to parse further to get the price info.Dim strResult As StringDim objHTTP As ObjectDim URL As...
vba把json转数组中_在Excel VBA中解析JSON数组
weixin_39622562的博客
12-22 581
I have tried to follow the method in another thread, however there are certain part in the code that I don't understand and it didn't work for me. And I could comment as I haven't reached 50 reputatio...
vba把json转数组中_请教：EXCEL VBA 如何解析这样JSON数组
weixin_39757739的博客
12-22 205
展开全部用正则表达式解析62616964757a686964616fe78988e69d8331333335313261出XY对，存入数组Subtest()Dima,indjson="{""status"":0,""result"":[{""x"":106.43574112345,""y"":29.833104733025},{""x"":106.43574842922,""y"":29...
VBA-JSON解析JSON数组中的多组记录
gitblog_07755的博客
05-16 393
VBA-JSON解析JSON数组中的多组记录 在处理JSON数据时，我们经常会遇到包含多组记录的JSON数组结构。本文将以VBA-JSON库为例，详细介绍如何正确解析和处理这种常见的数据结构。 JSON数组结构解析 典型的JSON数组结构如下： [ {"A":"aaa","Date":"2021-08-03",&q...
VBA-JSON:JSON转换和VBA解析
04-30
VBA-JSON VBA（Windows和Mac Excel，Access和其他Office应用程序）的JSON转换和解析。 它出色的项目 ，并进行了添加和改进以解决错误和提高性能（作为一部分）。 在Windows Excel 2013和Excel for Mac 2011中进行了测试，但应适用于2007+。 对于仅Windows支持，请包含对“ Microsoft脚本运行时”的引用 对于Mac和Windows支持，包括 例子 Dim Json As Object Set Json = JsonConverter.ParseJson( "{""a"":123,""b"":[1,2,3,4],""c"":{""d"":456}}" ) ' Json("a") -> 123 ' Json("b")(2) -> 2 ' Json("c")("d") -> 456 Json( "c" )(
vba把json转数组中_在Windows上的Excel VBA中，如何遍历解析的JSON数组？
weixin_39858132的博客
12-22 618
首先，我不再使用自定义JSON解析库，而是使用ScriptControl的Eval方法作为所有JSON代码的基础。另外，我们对本机Microsoft解决方案表示偏爱。这是一个先前的问题，在Windows上的ExcelVBA中，如何减轻IDE的大写行为破坏解析的JSON的点语法遍历的问题？这个问题基于此。它显示了与使用点语法遍历已解析的JSON对象相比，使用VBA.CallByName的鲁棒性更高。...
vba把json转数组中_javascript – 在Excel VBA中解析JSON对象数组
weixin_35036735的博客
12-31 361
您可以使用ScriptControl对象创建一个可以运行javascript的环境.如果您习惯在网页中使用JSON,那么这可能是一种简单的方法.例：Sub Tester()Dim json As StringDim sc As ObjectDim oSet sc = CreateObject("scriptcontrol")sc.Language = "JScript"json = {get yo...
vba把json转数组中_Excel VBA - 如何从多数组JSON获取数据到列
weixin_39967938的博客
12-22 282
I found a solution for parsing JSON, and it works fine for the presented example:Here's the code:Sub Test()Dim jsonText As StringDim jsonObj As DictionaryDim jsonRows As CollectionDim jsonRow As Colle...
VBScript把json字符串解析成json对象的2个方法
09-04
在JScript中，我们可以使用`eval`函数将JSON字符串转化为JavaScript对象，如`parseJSON`函数所示。 2. **调用JScript函数**： 在VBScript中，创建一个变量`json`存储JSON字符串，然后调用`parseJSON`函数，将结果...
vba把json转数组中_网抓处理Json数据 | VBA实例教程
weixin_39564831的博客
12-31 974
网抓处理Json数据 | VBA实例教程2018-09-26除非注明，文章均为 战战如疯 原创，转载请保留链接:http://www.zhanzhanrufeng.com/cat3/472.html，VBA交流群273624828。之前网抓到的数据都直接用split处理了，今天好好研究了下处理Json形式的数据，拿个案例来分享一下。要抓的数据是http://www.okooo.com/soccer...
VBA-JSON-2.3.1_JSON_Windows编程_jsonexcel_ExcelVBA_circleinn_
09-29
2. 解析JSON：VBA-JSON库将JSON字符串转换为VBA可以理解的对象结构。 3. 将JSON对象映射到Excel表格：根据JSON数据的结构，将数据填充到Excel的工作表中。 4. 可能还包括将Excel数据转换回JSON：如果需要将Excel数据...
VBA解析JSON字符串为数组
最新发布
06-22
在VBA中解析JSON字符串为数组，推荐使用第三方库**VBA-JSON解析器**（最可靠方法）。以下是完整实现步骤： #### 方法一：使用VBA-JSON解析器（推荐） 1. **准备工作**： - 下载[VBA-JSON解析器]...
vba把json转数组中_VBA将Json数据提取到Excel
weixin_35084652的博客
12-31 787
Json常用来存储数据，使用ScriptControl对象方法将Json数据提取到Excel中。代码如下：SubJsonToRng()DimsJson$,js$sJson=Range("A1") 'JSON数据在A1js="varr,k,row=c=1,d={};for(rinj){row++;for(kinj[r]){if(!d[k]){d[k]=c++;rng(1,...
vba把json转数组中_json字符串、json对象、数组 三者之间的转换
weixin_39704727的博客
12-22 1025
json字符串转化成json对象// jquery的方法var jsonObj = $.parseJSON(jsonStr)//js 的方法var jsonObj = JSON.parse(jsonStr)json对象转化成json字符串//js方法var jsonStr1 = JSON.stringify(jsonObj)例如例如：var jsonStr = '[{"id":"01","ope...
vba把json转数组中_VBA解析Json(转)
weixin_39540178的博客
12-22 486
SQL标签SQL标签库提供了与关系型数据库进行交互的标签. 引入语法:SQL注入测试平台 SQLol -3.INSERT注入测试访问首页的insert模块,http://127.0.0.1/sql/insert.php,开始对insert模块进行测试. insert语句: INSERT INTO [users] ([usern ...win7下以兼容模式安装oracle10g...
vba把json转数组中_在Excel VBA中解析JSON对象数组
weixin_39737240的博客
12-22 519
I know a similar question has been asked and answered before a few times:Parsing JSON in Excel VBA,Excel VBA: Parsed JSON Object LoopHowever, the above solution doesn't work if I am trying to access a...
JavaScript 数组拼接打印_JavaScript 中的“黑话”
weixin_39805924的博客
11-21 253
因为球是圆的，所以不论发生什么都有可能，对这点我是深信不疑的，但最近我总是在怀疑，JavaScript也是圆的！什么是“黑话”黑话，本指旧时江湖帮会人物的暗语、暗号，往往见于小说，后指流行于某一特殊行业中，非局外人所能了解的语言。而本文涉及到的“黑话”，其实是一些利用语言的特征使用的一些不常见的奇淫技巧，JavaScript的语法是十分简单灵活的，在项目中建议大家遵从ESLint规范编写...
js 解析json字符串方式_Excel VBA 实战(13) - VBA JS 解析 & 巨潮资讯爬虫更新
weixin_39850697的博客
11-25 390
今天有朋友留言反映，API改版后巨潮资讯爬虫失效了。之前正好更新了Kotlin版本的爬虫，由于各种语言实现的底层原理完全一致，移植到VBA也绝非难事。借此机会正好向大家具体展示 VBA爬虫的底层工具链以及VBA语言本身的魅力。问题分析改版之后巨潮资讯放弃了之前的服务器后台渲染的做法，采用可扩展性更好的JSON作为数据传递的媒介。简单抓包response 返回的JSON字符串如上。抓包的技巧请参考实...
redis恢复部分数据到内存
liulu930507的博客
09-15 2436
这个方法比较笨，但是还挺实用。redis有一份rdb文件是旧的数据文件dump.rdb.back，当前已经有新的dump.rdb文件。现在要做的是将dump.rdb.back的数据添加到现在的redis里（服务器master）。 1.先用另一台redis服务(slave1)，加载dump.db.back的数据，即先备份slave1自己的数据，用dump.db.back覆盖slave1的dump.rdb文件； 2.启动slave1的redis服务,在redis命令行里执行bgrewriteaof，生成旧数
json中解析json数组
06-21
<think>我们正在处理一个关于解析JSON中的JSON数组的问题。根据引用[1]和引用[2]，我们可以知道，在JSON解析中，有时会遇到一个JSON数组里面包含另一个JSON数组的情况。我们需要使用面向对象的思想来建立类之间的映射关系，从而解析这种嵌套结构。引用[1]中提到，通过类的构造器建立类间的映射关系，创建对象。引用[2]则介绍了Java中解析JSON数组的方法，并提到使用一些库可以高效解析。根据用户的问题，他想要解析一个JSON字符串，其中包含一个JSON数组，而这个数组中的元素可能又是一个JSON数组（即嵌套的数组）。我们需要给出示例代码。我们假设有一个JSON字符串如下：```json[{"name":"array1","data":[1,2,3]},{"name":"array2","data":[4,5,6]}]```在这个例子中，最外层是一个数组，每个元素是一个对象，对象中有一个键"data"，它的值又是一个数组。在不同语言中，解析方法不同。我们将分别用Java和JavaScript（以及PHP和VBA）来展示，因为引用中提到了这些语言。1.Java解析示例（使用org.json库）：首先，需要添加org.json库的依赖（如json-20210307.jar）。```javaimportorg.json.JSONArray;importorg.json.JSONObject;publicclassJsonArrayExample{publicstaticvoidmain(String[]args){StringjsonString="[{\"name\":\"array1\",\"data\":[1,2,3]},{\"name\":\"array2\",\"data\":[4,5,6]}]";JSONArrayouterArray=newJSONArray(jsonString);for(inti=0;i<outerArray.length();i++){JSONObjectobj=outerArray.getJSONObject(i);Stringname=obj.getString("name");JSONArrayinnerArray=obj.getJSONArray("data");System.out.println("Name:"+name);System.out.print("Data:");for(intj=0;j<innerArray.length();j++){System.out.print(innerArray.getInt(j)+"");}System.out.println();}}}```2.JavaScript解析示例（在浏览器或Node.js环境中）：```javascriptletjsonString='[{"name":"array1","data":[1,2,3]},{"name":"array2","data":[4,5,6]}]';letouterArray=JSON.parse(jsonString);outerArray.forEach(item=>{console.log("Name:"+item.name);console.log("Data:"+item.data.join(''));});```3.PHP解析示例（引用[3]中提到json_encode，这里使用json_decode）：```php<?php$jsonString='[{"name":"array1","data":[1,2,3]},{"name":"array2","data":[4,5,6]}]';$outerArray=json_decode($jsonString,true);//true表示转换为关联数组，不加true则转换为对象foreach($outerArrayas$item){echo"Name:".$item['name']."\n";echo"Data:".implode('',$item['data'])."\n";}?>```4.VBA解析示例（引用[4]中提到了VBA解析JSON，可以使用ScriptControl或解析为字典对象）：由于VBA没有内置的JSON解析，我们可以使用MicrosoftScriptControl（需要引用MicrosoftScriptControl）或者使用第三方库。这里使用ScriptControl（仅适用于简单情况，且需要在工具->引用中添加MicrosoftScriptControl1.0）。```vbSubParseJSON()DimjsonStringAsStringjsonString="[{""name"":""array1"",""data"":[1,2,3]},{""name"":""array2"",""data"":[4,5,6]}]"DimscAsNewScriptControlsc.Language="JScript"sc.AddCode"functiongetJSON(s){returneval(s);}"DimjsonAsObjectSetjson=sc.Run("getJSON",jsonString)DimiAsIntegerFori=0Tojson.length-1DimitemAsObjectSetitem=json(i)Debug.Print"Name:"&item.nameDebug.Print"Data:";DimjAsIntegerForj=0Toitem.data.length-1Debug.Printitem.data(j)&"";NextjDebug.PrintNextiEndSub```注意：在实际应用中，VBA解析复杂的JSON可能比较麻烦，建议使用更成熟的第三方库（如VBA-JSON）。总结：解析嵌套的JSON数组，关键在于将整个JSON字符串解析为数组或对象，然后逐层访问。在面向对象的语言中，我们可以定义类来映射JSON结构，这样更清晰。例如在Java中，我们可以定义两个类：```javapublicclassDataItem{privateStringname;privateint[]data;//构造方法和getter/setter省略}```然后使用如Gson或Jackson这样的库将整个JSON字符串解析为DataItem[]数组。根据引用[1]的思想，我们可以这样升级（使用Gson）：```javaimportcom.google.gson.Gson;importcom.google.gson.reflect.TypeToken;importjava.lang.reflect.Type;importjava.util.List;publicclassJsonArrayExample{publicstaticvoidmain(String[]args){StringjsonString="[{\"name\":\"array1\",\"data\":[1,2,3]},{\"name\":\"array2\",\"data\":[4,5,6]}]";Gsongson=newGson();TypelistType=newTypeToken<List<DataItem>>(){}.getType();List<DataItem>items=gson.fromJson(jsonString,listType);for(DataItemitem:items){System.out.println("Name:"+item.getName());System.out.print("Data:");for(intnum:item.getData()){System.out.print(num+"");}System.out.println();}}}classDataItem{privateStringname;privateint[]data;publicStringgetName(){returnname;}publicvoidsetName(Stringname){this.name=name;}publicint[]getData(){returndata;}publicvoidsetData(int[]data){this.data=data;}}```这样代码更加清晰，符合面向对象的设计。因此，解析JSON中的JSON数组，主要步骤是：1.将整个字符串解析为最外层的数组（或列表）。2.遍历这个数组，每个元素是一个对象（或字典）。3.从每个对象中取出内层数组的键，获取内层数组，再进行遍历。根据不同的编程语言，可以选择相应的JSON解析库。注意：在解析时，要注意异常处理，因为JSON字符串可能不符合预期格式。最后，生成相关问题。</think>### 如何在 JSON 中解析嵌套的 JSON 数组 解析 JSON 中的嵌套数组需要根据编程语言选择合适的 JSON 解析库，核心步骤包括： 1. 将 JSON 字符串解析为内存对象 2. 逐层访问嵌套结构 3. 提取内部数组数据 以下为不同语言的实现示例： #### Java 示例 (使用 org.json 库) ```java import org.json.JSONArray; import org.json.JSONObject; public class JsonParser { public static void main(String[] args) { String jsonStr = "[{\"id\":1,\"data\":[{\"name\":\"item1\"},{\"name\":\"item2\"}]}]"; // 解析外层数组 JSONArray outerArray = new JSONArray(jsonStr); for (int i = 0; i < outerArray.length(); i++) { // 获取嵌套对象 JSONObject obj = outerArray.getJSONObject(i); int id = obj.getInt("id"); // 获取内部数组 JSONArray innerArray = obj.getJSONArray("data"); for (int j = 0; j < innerArray.length(); j++) { JSONObject innerObj = innerArray.getJSONObject(j); System.out.println("ID: " + id + ", Name: " + innerObj.getString("name")); } } } } ``` #### JavaScript 示例 ```javascript const jsonStr = '[{"id":1,"data":[{"name":"item1"},{"name":"item2"}]}]'; // 解析JSON字符串 const outerArray = JSON.parse(jsonStr); outerArray.forEach(outerObj => { const id = outerObj.id; const innerArray = outerObj.data; // 获取嵌套数组 innerArray.forEach(innerObj => { console.log(`ID: ${id}, Name: ${innerObj.name}`); }); }); ``` #### Python 示例 (使用标准库 json) ```python import json json_str = '[{"id":1,"data":[{"name":"item1"},{"name":"item2"}]}]' # 解析为Python对象 data = json.loads(json_str) for outer_obj in data: for inner_obj in outer_obj['data']: # 访问嵌套数组 print(f"ID: {outer_obj['id']}, Name: {inner_obj['name']}") ``` #### PHP 示例 ```php <?php $jsonStr = '[{"id":1,"data":[{"name":"item1"},{"name":"item2"}]}]'; // 解析为关联数组 $data = json_decode($jsonStr, true); foreach ($data as $outer) { foreach ($outer['data'] as $inner) { // 遍历嵌套数组 echo "ID: {$outer['id']}, Name: {$inner['name']}\n"; } } ?> ``` #### 关键注意事项 1. **数据结构识别**：确认嵌套数组的层级路径（如 `对象 → 数组 → 对象`） 2. **类型转换**：大多数语言需要显式类型转换（如 Java 的 `getInt()`/`getString()`） 3. **错误处理**：添加 try-catch 防止格式错误导致解析失败 4. **空值检查**：使用类似 `optJSONArray()` (Java) 或 `?.` (JS) 的安全访问方法 对于复杂嵌套结构，建议使用面向对象方式建立数据模型映射（如创建 `OuterObject` 和 `InnerObject` 类），通过构造器实现层级关系绑定[^1]。 --- ### 相关问题 1. JSON 数组解析时如何处理数据类型转换异常？ 2. 如何优化多层嵌套 JSON 的解析性能？ 3. 不同编程语言的 JSON 库有哪些主要差异？ 4. 如何将解析后的 JSON 数据映射到自定义类对象？ 5. 解析大型 JSON 文件时如何避免内存溢出？ [^1]: JSON解析实战升级篇：JSON数组中含JSON数组 [^2]: Java JSON数组的解析 [^3]: php解析遍历json数组对象数组 [^4]: VBA把JSON字符串转为数组
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值