前提・実現したいこと
ここに質問の内容を詳しく書いてください。
VBA-jsonを利用し、jsonを出力させていです
発生している問題・エラーメッセージ
実行結果は
{
"configObject ": {
"name":"サンプ"
}
}
Infoの連想配列はどのようにしたら反映されますでしょうか?
該当のソースコード
VBA
1 Dim JsonObject As Dictionary 2 Dim configObject As Dictionary 3 Dim Info As Dictionary 4 Set JsonObject = CreateObject("Scripting.Dictionary") 5 Set configObject = CreateObject("Scripting.Dictionary") 6 Set Info = CreateObject("Scripting.Dictionary") 7 8 9 configObject.Add "config ", JsonObject 10 JsonObject.Add "name", "サンプル" 11 Info.Add "id", 1 12
試したこと
VBA-JSONを利用してjsonを出力させたいです。
出力想定のjson
{
"configObject ": {
"name":"サンプ"
},
" id": {
1
}
}
この様なjsonを出力させたいです。
コードやエラーはマークダウンのcode機能を利用してご提示ください。
https://teratail.com/questions/238564
{
"configObject ": {"name":"サンプ"},
" id": {1}
}
なので
configObject.Add "configObject", JsonObject:JsonObject.Add "name", "サンプル"
ができているなら
configObject..Add "id", 1
なのでは?。。私は環境持っていないのでおくそくです。
configObject.Add "id", JsonObject:JsonObject.Add 1
こうなるのかも?
あなたの回答
tips
プレビュー