vbaでのforループの回し方について(json)

前提

vbaでjson出力を実現しようとすると、共通部分のオブジェクト定義の箇所でエラーが出ます。

実現したいこと

json出力をvbaで実現させたい

発生している問題・エラーメッセージ

このキーは既にこのコレクションの要素に割り当てられています。

実現させたいjson

{
    "A": {
        "a": "num"
    },
    "B": {
        "a": "num",
        "b": ["bStr1", "bStr2"],  //"b"と"c"の要素数は同じです
        "c": ["cStr1", "cStr2"], 
        "d": "dStr"
    },
    "C": {
        "a": "num",
        "b": ["bStr1", "bStr2", "bStr3"],
        "c": ["cStr1", "cStr2", "cStr3"],
        "d": "dStr"
    },
    "D": {
        "a": "num",
        "b": ["bStr1"],
        "c": ["cStr1"],
        "d": "dStr"
    }
}

試したこと

keyが"B","C","D"については、valueのオブジェクトが共通しているのでforループで回したいが、keyが"B"のvalueを定義した後に、"C"のvalueを定義しようとすると、"a","b","c","d"の部分で上記エラーが出ます。
※下記コードの~部分は省略しています。

//大元のオブジェクトを定義
Dim Dic1 As New Dictionary
//共通部分のオブジェクトを定義
Dim Di2 As New Dictionary

Dic2.Add "a", ~
Dic2.Add "b", ~
Dic2.Add "c", ~
Dic2.Add "d", ~
Dic1.Add "A", Dic2

Dic2.Add "a", ~
Dic2.Add "b", ~
Dic2.Add "c", ~
Dic2.Add "d", ~
Dic1.Add "B", Dic2

Dic2.Add "a", ~
Dic2.Add "b", ~
Dic2.Add "c", ~
Dic2.Add "d", ~
Dic1.Add "C", Dic2

Dic2.Add "a", ~
Dic2.Add "b", ~
Dic2.Add "c", ~
Dic2.Add "d", ~
Dic1.Add "D", Dic2

ご回答のほど、何卒よろしくお願いいたします。

otn

2023/01/29 03:14

エラーの意味は理解していますか？

satprogram

2023/01/29 03:19

同じキー、つまり"a", "b", "c", "d"をDic2に割り当てようとしているため、エラーが出ていると認識しています。しかし、出力したいjsonを実現する上で他の方法がまだ分かっていないです、、、、

otn

2023/01/29 10:44

１つのDictionaryに同じキーは１つしか存在できないので、同じキーをaddしては駄目だと言うことはわかりますか？１つのDictionaryを更新したいのか、それぞれ別のDictionaryにしたいのか、どちらなのでしょう？

回答2件

Dic1に追加するDictionaryをそれぞれ別のオブジェクトとしたいのなら、それぞれ別に生成(New)する必要があります。

vba
1    Dim Dic1 As Dictionary
2    Dim Dic2 As Dictionary
3
4    Set Dic1 = New Dictionary
5    
6    Set Dic2 = New Dictionary
7    Dic2.Add "a", "num"
8    Dic1.Add "A", Dic2
9
10    Set Dic2 = New Dictionary
11    Dic2.Add "a", "num"
12    Dic2.Add "b", Array("bStr1", "bStr2")
13    Dic2.Add "c", Array("cStr1", "cStr2")
14    Dic2.Add "d", "dStr"
15    Dic1.Add "B", Dic2
16
17    Set Dic2 = New Dictionary
18    Dic2.Add "a", "num"
19    Dic2.Add "b", Array("bStr1", "bStr2", "bStr3")
20    Dic2.Add "c", Array("cStr1", "cStr2", "cStr3")
21    Dic2.Add "d", "dStr"
22    Dic1.Add "C", Dic2
23
24    Set Dic2 = New Dictionary
25    Dic2.Add "a", "num"
26    Dic2.Add "b", Array("bStr1", "bStr2")
27    Dic2.Add "c", Array("cStr1", "cStr2")
28    Dic2.Add "d", "dStr"
29    Dic1.Add "D", Dic2
30    
31    'Dictionaryの中身の確認
32    Dim key1, key2
33    For Each key1 In Dic1.keys
34        Debug.Print key1 & ":"
35        For Each key2 In Dic1(key1)
36           If IsArray(Dic2(key2)) Then
37                Debug.Print vbTab & key2 & ": " & Join(Dic2(key2), ",")
38           Else
39                Debug.Print vbTab & key2 & ": " & Dic2(key2)
40           End If
41        Next
42    Next
43