JSONデータの解析(プロパティの利用) まず、解析部分をVBAのユーザ定義関数にします。以前のWikipediaの処理を書き換えたものなので、詳細はそちらも参照してください。 [リスト9]jsonデータの解析 '(1)JSONデータを解析し、オブジェクト変数に格納 Dim objJson As Object Set objJson = js.CodeObject.eval("(" + resText + ")") '(2)解析済みのJSONデータの件数を取得 Dim objRowCount As Integer objRowCount = CallByName(objJson, "length", VbGet) '(3)結果をワークシートへ転記 For idx = 0 To objRowCount - 1 'データの件数だけ繰り返す '(4)JSONデータ1件分を取り出し、オブジェクト変