エクセルでJSONデータを読み込む

ストレス解消にエクセルでJSONを読み込みたくなりました。
RでJSONを読むの放射線モニタリングのデータを読んでみます。
やり方は簡単、Power Query→その他のソースから→空のクエリで下記コマンドを入力するだけ。

= Table.FromValue(Json.Document(Web.Contents("http://radioactivity.nsr.go.jp/data/ja/real/area_24000/2401_trend.json")))

これでデータとしては読み込まれます。
あとは画面をポチポチしながら必要な情報が展開されたところで画面上のリボンから「閉じて読み込む」を押してブックにデータを読み込ませます。

参考資料

PowerQueryはExcel2010以上なら下記からアドインをインストールしてすぐに使えます。
http://www.microsoft.com/ja-jp/download/details.aspx?id=39379

下記ブログ記事の解説が非常に丁寧。
http://artfulplace.net/blogs/import-json-data-to-excel-using-power-query/

上記ブログ主が書いた非公式リファレンスとのこと。
http://artfulplace.net/docs/powerquery/fn/accessing_data/

そのほかpower queryを分析に使っているブログ
http://sharepointsearch.org/2014/04/06/power-query-%E3%81%AB%E3%82%88%E3%82%8B%E5%88%86%E6%9E%90%E3%83%87%E3%83%BC%E3%82%BF%E3%81%AE%E5%86%8D%E5%88%86%E6%9E%90-excel-html-%E5%85%A5%E5%8A%9B%E7%B7%A8/

最後に

めんどくさい。余計ストレスたまったわ。