VBAでJSON形式のデータを取得してExcelに出力したい

Question

下記データのうち、id、area、companyを取得してエクセルに貼り付けをしたいと考えております。
※.下記データは、1件分のデータを表していますが、仮に100件ある場合どのように取得すればよろしいでしょうか。

{"status":"success","total":2016,"records":[{"recid":1,"number":1,"no":"9999","no2":"1","id":4444,"area":"関西","company":"XXXX株式会社"}]}

下記の方法を試しましたがうまく取得できませんでした。
CodeObject.getValue(2(4), "records")
CodeObject.getValue(2(5), "records")
CodeObject.getValue(2(6), "records")

上記データは事前にAddcodeメソッドでjsオブジェクトに加えていますのでCodeObject.getValueで取得できると考えています。
もっと楽な方法がありましたらご教示願います。
すみません、このやり方しか思い浮かばなかったです

Comments

[iwamoto_takaaki]

このサイトはプログラミングのための問題解決をするサイトです。プログラミングをしてくれるサイトではありません。やりたいことをすべてやってもらおうとしたら、評価をさげられます。評価が下がると質問を読んでもらえなくなります。質問はやってみてうまく行かなかった点のみにしましょう。

[MasahikoHirata]

他の方法の方が楽なのですが。課題ですか？

Answer 1

得られたJSONの結果を1行ずつパースしてください。
以下のリンク先にVBAで扱えるJSONパーサの扱い方があります。
http://vba.dohow.jp/vba%E3%81%A7json%E3%82%92%E6%89%B1%E3%81%86/

ScriptControlなので、CreateObjectに頼らなくても、MicrosoftScriptを
外部参照したら扱えるかもです。（自宅にはExcelがないので未確認ですが。）