回答編集履歴
1
修正
test
CHANGED
|
@@ -3,6 +3,10 @@
|
|
|
3
3
|
Sub main()
|
|
4
4
|
|
|
5
5
|
Dim JsonObject As Object
|
|
6
|
+
|
|
7
|
+
Dim JsonItem As Object
|
|
8
|
+
|
|
9
|
+
|
|
6
10
|
|
|
7
11
|
Set JsonObject = New Dictionary
|
|
8
12
|
|
|
@@ -15,8 +19,6 @@
|
|
|
15
19
|
|
|
16
20
|
|
|
17
21
|
For i = 2 To 3
|
|
18
|
-
|
|
19
|
-
Dim JsonItem As Object
|
|
20
22
|
|
|
21
23
|
Set JsonItem = New Dictionary
|
|
22
24
|
|