teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

修正

2019/01/03 09:41

投稿

退会済みユーザー
answer CHANGED
@@ -1,13 +1,14 @@
1
1
  ```
2
2
  Sub main()
3
3
  Dim JsonObject As Object
4
+ Dim JsonItem As Object
5
+
4
6
  Set JsonObject = New Dictionary
5
7
 
6
8
  JsonObject.Add "id", 1
7
9
  JsonObject.Add "shipTo", New Collection
8
10
 
9
11
  For i = 2 To 3
10
- Dim JsonItem As Object
11
12
  Set JsonItem = New Dictionary
12
13
 
13
14
  JsonItem.Add "name", Cells(i, 1).Value