marimoko1209のプロフィール

VBAでJSONをパースしたく、以下サイトを参考に実装しています。 http://kenchanz.blogspot.com/2011/01/vbajson.html こちらのサイトで記述されている形式のJSONデータをパースすることはできたのですが、 今回パースしたい以下データのアクセス方法を見つけることができません。 ■パースしたいJSONデータ {"lists":[{"KEY":{"NAME":"yamada"}},{"KEY":{"NAME":"hanako"}}]} ■取得したい値 最終的にはlistsキーの値となっている配列に対して、 ループ処理を行い、NAMEキーの値であるyamadaや、hanakoを取得したい ■実装方法 Set objJSON = sc.CodeObject.jsonParse(JSONデータ) Set objJSON2 = objJSON.lists ここまでは動くのですが、以降がわかりません。 有識者の方、どうぞアドバイスを頂けますようお願いいたします。