逍遥vba64位Json模块，史上最强，没有第二！

逍遥爱迪生

3-24添加了取节点工具》》

逍遥vba64位Json模块，史上最强，没有第二！
支持读取数组元素数量，添加，删除，修改值
可以在VBA中按快捷键：ctrl+M 直接导入类：XiaoYaoVbaJson.cls
支持多级路径方问：Json("a.b[2].c")

    Dim Json As New XiaoYaoVbaJson
    Dim jsonString As String
   
    jsonString = "{ ""Name"": ""John"", ""age"": 30, ""city"": ""New York"" ,""obj1"":{""a"":3,""b"":""s2""} }"
    Json.SetJsonStr jsonString
   
    MsgBox Json("Name")
    Json("Name") = "逍遥"
    MsgBox Json("Name")

1. Sub ExcelJson测试()
   
2.         Dim Json As New XiaoYaoVbaJson
   
3.         Dim jsonString As String
   
4.         
   
5.         jsonString = "{ ""Name"": ""John"", ""age"": 30, ""city"": ""New York"" ,""obj1"":{""a"":3,""b"":""s2""} }"
   
6.         If Not Json.SetJsonStr(jsonString) Then '设置JSON字符串
   
7.             MsgBox "json数据格式有误"
   
8.             Exit Sub
   
9.         End If
   
10.         Debug.Print "GetAllKeys=" & Join(Json.GetAllKeys, ",") '取回所有键名
    
11.         Debug.Print "GetAllKeys=" & Join(Json.GetAllKeys("obj1"), ",")
    
12.         Debug.Print "TypeNameJs=" & Json.TypeNameJs("obj1") '取某个键的数据类型
    
13.          Debug.Print "Name TypeNameJs=" & Json.TypeNameJs("Name")
    
14.         Debug.Print "TypeNameJs=" & Json.IsType("obj1", "Object") '检测是字符，数字还是数组
    
15.         Debug.Print "TypeNameJs(age)=" & Json.IsType("age", "number")
    
16.         Debug.Print "age TypeNameJs=" & Json.TypeNameJs("age")
    
17.         Debug.Print "Name=" & Json.Item("Name") '取值
    
18.         Json.Item("age") = 40 '改值
    
19.         Json("age") = 41 '可以不需要用Item
    
20. 
    
21.         Debug.Print "KeysCount=" & Json.KeysCount("")
    
22.         Debug.Print "年纪=" & Json("age")
    
23.         
    
24.         Json.ItemEx("Arr1") = "[3,4,5]" '添加一个元素：数组类型
    
25.          Debug.Print "TypeName2('Name',Arr1,age,obj1)=" & Json.TypeName2("Name") & "," & Json.TypeName2("age") & "," & Json.TypeName2("Arr1") & "," & Json.TypeName2("obj1")
    
26. 
    
27. 
    
28.          Debug.Print "GetAllKeys=" & Join(Json.GetAllKeys("Arr1"), ",")
    
29.         Debug.Print "读取Json数组的值:" & Json.Item("Arr1[0]")
    
30.         Debug.Print "数组成员数：" & Json.Item("Arr1.length")
    
31.         Debug.Print Json.eval("JsonObj.age") 'eval方式支持更高级操作
    
32.         Debug.Print Json.GetJsonStr("")
    
33.         Call Json.RemoveArrayByIndex("Arr1", 1) '删除数组中第2个值
    
34.         
    
35.         
    
36.         Debug.Print "GetJsonStrObject=" & Json.GetJsonStrObject(Json.JsonObj.Arr1)
    
37.         Call Json.ArrayAdd("Arr1", "abcd") '插入数组一个值
    
38.         
    
39.         Debug.Print "Arr1[2]=" & Json.Item("Arr1[2]")
    
40.         Json.Item("Arr1[2]") = "3344"
    
41.         Debug.Print "Arr1[2]=" & Json.Item("Arr1[2]")
    
42.         
    
43.         Debug.Print "GetJsonStrObject=" & Json.GetJsonStrObject(Json.JsonObj.Arr1)
    
44.         Dim obj1 '防止IDE首字母大写
    
45.         Debug.Print "GetJsonStrObject=" & Json.GetJsonStrObject(Json.JsonObj.obj1)
    
46.       Debug.Print "stringify=" & Json.stringify("obj1")
    
47.       Debug.Print "stringify=" & Json.stringify()
    
48.      
    
49. End Sub

复制代码

逍遥爱迪生

1. Sub TEST3()
   
2.     Dim Json As New XiaoYaoJson
   
3.     Dim jsonString As String
   
4.    
   
5.     jsonString = "{ ""Name"": ""John"", ""age"": 30, ""city"": ""New York"" ,""obj1"":{""a"":3,""b"":""s2""} }"
   
6.     'Json.SetJsonStr jsonString
   
7.     Json.parse jsonString
   
8.    
   
9. '    Json.JsonStr = jsonString
   
10. '    MsgBox Json.JsonStr
    
11.    
    
12.     MsgBox Json("Name")
    
13.     Json("Name") = "逍遥"
    
14.     MsgBox Json("Name")
    
15.     MsgBox Json.stringify
    
16.     MsgBox Json.stringify("", True)
    
17. End Sub
    
18. 
    
19. 
    
20. Public Function parse(ByVal vNewValue As String) As Boolean
    
21.     On Error Resume Next
    
22.     Doc.Script.SetJsonStr vNewValue
    
23.     parse = ERR.Number = 0
    
24. End Function

复制代码

逍遥爱迪生

版本2.2 ,增加接口功能：
Function AddObject(KeyName As String) As Boolean  '添加一个子json对象，方便添加新值

Function AddArray(KeyName As String) As Boolean  '添加一个数组
Function Delete(KeyName As String) As Boolean '删除一个键和数据

ggmmlol

1楼已经更新到3.0版，我提到的bug已经修正了。

逍遥爱迪生

dim json as new XiaoYaoJson
换了一个新的名称

逍遥爱迪生

ggmmlol 发表于 2025-3-22 15:08
1楼已经更新到3.0版，我提到的bug已经修正了。

有什么问题可以留言啊，好用吗

dnbc

谢谢分享

逍遥爱迪生

Public Property Let JsonStr(ByVal vNewValue As String)
'不支持多个空行
    Script.SetJsonStr repalce(vNewValue, vbCrLf, ""),要改一下
取每个JSON数据的节点

逍遥爱迪生

JS示例：var JsonObj={
  "['444']": "s4",
  "a1": 33,
  ",strddd": "ss",
  "idlist": [
    11,
{"d1":"s1","D2":"S2"},
    33
  ],
  "A2": "strtest",
  "A3": "strtest2",
  "a4": [
    "v1",
    "v2",
    {
      "a41": 41,
      "a42": 42
    }
  ],
  "ChildObjA": {
    "c1": 11,
    "c2": 22
  }
}

console.log(JsonObj.idlist[1].d1)