用 1 个 VBA 文件解析 JSON：从安装到避开 10001 报错的完整指南-北京尧图网络

用 1 个 VBA 文件解析 JSON从安装到避开 10001 报错的完整指南【免费下载链接】VBA-JSONJSON conversion and parsing for VBA项目地址: https://gitcode.com/gh_mirrors/vb/VBA-JSONVBA 里没有现成的 JSON 解析库手写的字符串拼接代码在遇到嵌套和转义时几乎必然出错。VBA-JSON把这件事压缩成仓库根目录的JsonConverter.bas一个文件——1123 行代码提供ParseJsonJSON 字符串变对象和ConvertToJson对象变 JSON 字符串两个入口函数Excel、Access 等 Office 应用在 Windows 和 Mac 上通用。一个文件替你挡掉了什么手写解析的难点不在于第一层取值而在于后面所有情况嵌套对象、嵌套数组、转义字符\、字符串里的换行和空格、键名带冒号或空格。这些JsonConverter.bas里都处理好了解析结果直接落到 VBA 最熟悉的两种结构上对象变Dictionary数组变Collection。场景方案只在 Windows 上用加对Microsoft Scripting Runtime的引用Windows Mac 通用引入 VBA-Dictionary 项目的Dictionary.cls类模块为什么必须有这一步因为ParseJson返回的Dictionary/Collection不是 VBA 内置类型总得有人提供——这是整个库唯一的外援。VBA-JSON 怎么装进项目3 步git clone https://gitcode.com/gh_mirrors/vb/VBA-JSONVBA 编辑器Alt F11里在工程上右键 → 导入文件 → 选JsonConverter.bas按上表补一个依赖编译一次不报错就装好了依赖没配好时Dictionary这个类型会直接在编译期暴露出来比运行期报错好排查得多。一个完整任务解析、修改、生成下面这段直接贴进模块跑从接口返回的 JSON 到改完写回一条线走完Dim Json As Object ParseJsonJSON 字符串 → Dictionary / Collection Set Json JsonConverter.ParseJson({城市:上海,温度:26.5,预警:[雷电,大风]}) Debug.Print Json(温度) 26.5 Debug.Print Json(预警)(2) 大风Collection 下标从 1 开始见下节 Json(湿度) 0.72 直接加字段 Json(预警).Add 暴雨直接往数组里加元素 Debug.Print JsonConverter.ConvertToJson(Json) 紧凑{城市:上海,...} Debug.Print JsonConverter.ConvertToJson(Json, Whitespace:2) 缩进 2 格结构一目了然输入不合法时ParseJson抛出错误码10001例如传入Howdy!会得到Error parsing JSON: Howdy! ^ Expecting { or [箭头指着它卡住的位置——它期待 JSON 以{对象或[数组开头。键后缺冒号时报Expecting :值不合法时报Expecting STRING, NUMBER, null, true, false, {, or [都是 10001箭头直接定位到出错的那一列不用逐字猜。2 个反直觉的默认行为先知道再上手1. 超过 15 位的纯数字默认返回 String。VBA 的Double只能可靠保存 15 位有效数字订单号、卡号一旦超位末尾几位会被悄悄截断成...4560。所以库的默认策略是超过 15 位的纯数字一律当字符串返回宁可类型不纯也不丢数据。仓库specs/Specs.bas里有一组 30 位数字的断言专门锁死这个行为。如果你确实要数字类型JsonConverter.JsonOptions.UseDoubleForLargeNumbers True 默认 False会丢精度慎用2. 数组下标从 1 开始。Collection的规矩Json(b)(2)取的是第二个元素不是 JSON 里下标为 2 的那个。写循环时记住1 To .Count。另外两个全局开关都在JsonOptions上按需打开即可AllowUnquotedKeys允许不带引号的键名标准 JSON 不允许、EscapeSolidus输出时把/转义成\/默认都是False。不跑测试怎么自查2 分钟肉眼验证在 VBA 编辑器建个模块跑这一段Sub 验证VBAJSON() On Error GoTo 失败 Dim r As Object Set r JsonConverter.ParseJson({id:123456789012345678,list:[1,2]}) Debug.Print TypeName(r(id)), r(list)(1) 期望String 和 1 Debug.Print JsonConverter.ConvertToJson(r, Whitespace:2) Exit Sub 失败: Debug.Print Err.Number 期望 0如果是 10001说明 JSON 本身不合法 End Sub看三个结果id 的类型是String精度保护在工作、列表第一个元素是1下标从 1 起、最后打印出带缩进的多行 JSON。全对上你的环境就通了。想系统性地确认specs/Specs.bas里写了 460 行、30 组左右断言覆盖嵌套数组、转义单引号、null、日期转 ISO 格式打开specs/VBA-JSON - Specs.xlsm跑一遍全绿即环境无误。一个文件装下 VBA 的整个 JSON 世界——去把specs/下的测试跑一次看 30 组断言全绿今天就可以拿真实接口的数据试手了。【免费下载链接】VBA-JSONJSON conversion and parsing for VBA项目地址: https://gitcode.com/gh_mirrors/vb/VBA-JSON创作声明：本文部分内容由AI辅助生成（AIGC），仅供参考

用 1 个 VBA 文件解析 JSON：从安装到避开 10001 报错的完整指南

相关推荐

自托管ChatGPT UI v4：把对话变成可管理的内容资产

一个OBS同时推3个平台：obs-multi-rtmp 多路RTMP推流插件一文搞定

输电线路异物检测实战：800张YOLO数据集训练全流程解析

更多资讯

电工证周末可以培训吗良心建议：别让证书耽误你找工作

电工证执证规定千万别踩坑，周口电工从业者必看

怀化在哪可考电工证良心建议：别再被中介坑了

遂宁电工证报考流程保姆级教程：外省证怎么转？一文说清楚

三门峡应届生必看：焊工电工证速记口诀怎么报名？别让证书耽误你找工作

之前考的证在外省能不能转过来？靠谱电工证报名与全国通用政策全解析

今日更新

单位电工证怎么保管？2026河南最新政策你必须知道

电工证上哪个网校内部消息教你避开报名陷阱

荆州电工证补贴怎么领？官方报名入口全解析，别再走弯路

本周精选

普宁电工证在哪报名官方回应怕考不过白交培训费？这些避坑干货你必须知道

高压电工证登高练习题在哪考合格率高？怕考不过白交培训费

电工作业登记表通过率揭秘：怕考不过白交培训费？洛阳学员亲测经验全公开

本月热门

面向复杂光照与角度的宠物面部识别鲁棒性增强策略

基于DRV8818与STM32的双极步进电机驱动方案实战解析

DRV8818PWPR+PIC18F45K80双极步进电机控制方案实战

读完文章，想聊聊您的网站？