首先，我不再使用自定义JSON解析库，而是使用ScriptControl的Eval方法作为所有JSON代码的基础。另外，我们对本机Microsoft解决方案表示偏爱。
这是一个先前的问题，在Windows上的Excel
VBA中，如何减轻IDE的大写行为破坏解析的JSON的点语法遍历的问题？这个问题基于此。它显示了与使用点语法遍历已解析的JSON对象相比，使用VBA.CallByName的鲁棒性更高。
在此问题中，询问如何遍历已解析的JSON数组。首先，这里是一个带帽子技巧的小脚本方法，用于ozmike
'Tools->References->
'Microsoft Script Control 1.0; {0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}; C:\Windows\SysWOW64\msscript.ocx
Private Sub TestJSONParsingArrayWithMiniScript()
'Hat tip to ozmike https://stackoverflow.com/users/334106/ozmike
'Based on https://stackoverflow.com/questions/5773683/excel-vba-parsed-json-object-loop#19359035
Dim oScriptEngine As ScriptControl
Set oScriptEngine = New ScriptControl
oScriptEngine.Language = "JScript"
oScriptEngine.AddCode "Object.prototype.myitem=function( i ) { return this[i] } ; "
Dim sJsonString As String
sJsonString = "[ 1234, 2345 ]"
Dim objJSON As Object
Set objJSON = oScriptEngine.Eval("(" + sJsonString + ")")
Debug.Assert objJSON.myitem(0) = 1234
Debug.Assert objJSON.myitem(1) = 2345
End Sub
但是，不管您相信与否，VBA.CallByName都可以本地使用，不仅可以获取数组的长度，还可以访问元素。查看答案。
首先，我不再使用自定义JSON解析库，而是使用ScriptControl的Eval方法作为所有JSON代码的基础。另外，我们对本机Microsoft解决方案表示偏爱。这是一个先前的问题，在Windows上的ExcelVBA中，如何减轻IDE的大写行为破坏解析的JSON的点语法遍历的问题？这个问题基于此。它显示了与使用点语法遍历已解析的JSON对象相比，使用VBA.CallByName的鲁棒性更高。...
这个方法比较笨，但是还挺实用。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，生成旧数
'
VBA
把
JSON
字符串
转
为
数组
，在
VBA
中
解析
JSON
对象
数组
为
VBA
数组
对象
'Andy 2022.04.07
功能：把
VBA
获取的网页
JSON
对象
数组
，
转
换成本地
VBA
数组
，供本地程序使用
特色：实现二维表格数据直接
转
换，在
VBA
中
使用JS代码轻松实现
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
=
Json
Converter.Parse
Json
( "{""a"":123,""b"":[1,2,3,4],""c"":{""d"":456}}" )
'
Json
("a") -> 123
'
Json
("b")(2) -> 2
'
Json
("c")("d") -> 456
Json
( "c" )(
Sub Get
JSON
Demo()
'url = "http://191.168.0.158:9092/api/index/quotaIntfs/getQuotaIntfGorupTreeWithDetailTable?pageNum=1&pageSize=10&pageSizes=10&pageSizes=20&pageSizes=50&pageSizes=100&t=1619769732746"
这几天在word里面写宏，想
解析
服务器传过来的
json
串。但是Set oSC = CreateObjectx86("MSScriptControl.ScriptControl")这个方法一直创建不了对象。
最后再网上看到说，word分为32位的和64位的这个方法只有在32位的word里面才可以使用，在64位的里面是实现不了的（不能创建对象）
于是在网上找各种的方案解决。最后找到一个方法，自己重...
iamlaosong文
网抓数据或者通过接口接收数据时，发来的数据很多是
JSON
格式，这是JavaScript常用的一种数据结构。对这种数据如何
解析
呢？先假定发来的数据如下，并针对这个数据给出几种
解析
方法写成的函数：
'返回数据（
json
格式）
'{"traces":[
'{"acceptTime":"2016-12-03 12:24:25","acceptAddress":"
什么是
JSON
?
JSON
(JavaScript Object Notation) 是一种及其轻量级的数据交换格式，它是 ECMAScript (欧洲计算机协会制定的JavaScript规范)的一个子集，它使用完全独立于任何编程语言的文本格式来表示数据。
由于
JSON
天然具备了简洁和清晰的层次结构，易于机器
解析
和生成，从2005年前后开始
JSON
成为主流的网络数据传输格式。进行网页数据抓取的时候，...
'
遍历
文件夹
中
的所有文件
If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
oldName = Dir(folderPath & "*" & fileExtension)
Do While oldName <> ""
newName = ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value & fileExtension '在 Sheet1
中
获取新的文件名称
Name folderPath & oldName As folderPath & newName '重命名文件
oldName = Dir()
i = i + 1
End Sub
这段代码会
遍历
指定的文件夹，找到所有指定扩展名的文件，并根据
Excel
中
的名称进行重命名。需要将
Excel
中
需要重命名的文件名列表放在 Sheet1 的第一列
中
。
