前提
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
ご回答のほど、何卒よろしくお願いいたします。
回答2件