回答編集履歴

1

修正

2019/01/03 09:41

投稿

退会済みユーザー
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