こういうデータの場合
{
"20191031":[
1605,1878,1925,1928,2502,2503,2802,2914,3382,3402,
3407,4063,4188,4452,4502,4503,4507,4519,4523,4528,
4543,4568,4578,4661,4901,4911,5020,5108,5401,5713,
5802,6098,6178,6273,6301,6326,6367,6501,6503,6594,
6702,6752,6758,6861,6869,6902,6954,6971,6981,7011,
7201,7202,7203,7267,7269,7270,7733,7741,7751,7832,
7974,8001,8002,8031,8035,8053,8058,8113,8267,8306,
8308,8309,8316,8411,8591,8601,8604,8630,8725,8750,
8766,8801,8802,8830,9020,9021,9022,9201,9202,9432,
9433,9434,9437,9502,9503,9531,9735,9843,9983,9984
],
"20190131":[
1605,1878,1925,1928,2502,2503,2802,2914,3382,3402,
3407,4063,4188,4452,4502,4503,4507,4523,4528,4543,
4568,4578,4661,4901,4911,5020,5108,5401,5411,5713,
5802,6098,6273,6301,6326,6367,6501,6503,6594,6702,
6752,6758,6861,6869,6902,6954,6971,6981,6988,7011,
7201,7202,7203,7261,7267,7269,7270,7741,7751,7974,
8001,8002,8031,8035,8053,8058,8113,8267,8306,8308,
8309,8316,8411,8591,8601,8604,8630,8725,8750,8766,
8795,8801,8802,8830,9020,9021,9022,9064,9201,9202,
9432,9433,9434,9437,9502,9503,9531,9735,9843,9983,9984
],
...
}コード。VBA-JSONは標準モジュールに組み込み済であること。
Dim Parsed
Set Parsed = JsonConverter.ParseJson(JsonText)
Dim Member
For Each Member In Parsed
Debug.Print Member
Dim Item
For Each Item In Parsed(Member)
Debug.Print Item
Next
Next
