VBAによるウェブスクレイピング~気象庁の過去データ情報取得~

VBAでもウェブスクレイピング出来ると聞いてやってみた。

・取得できる情報
指定した場所の指定した年月の過去の日ごとデータ

↑のリンクを実際に開いたらこんな感じ

気圧あり

エクセルマクロを実行すると・・・・

エクセル気圧あり

こんな感じでウェブスクレイピングした。色付きセルを入力or選択後実行でデータ取得ができる。あとは煮るなり焼くなりお好きにしてください。

初期設定では東京都のうち、東京、父島、羽田、練馬の四箇所であるが、データベースに都道府県コード、地域コード※1 を入れれば他でも対応できます。2行目の色なしデータを参照するようにしているので、コードを追加した場合は、2行目BとDのリスト範囲を変更すること。2行目CとEのVLOOKUPの範囲を変更するのを忘れないでください

↓は実際作成したエクセルマクロです。今のところ使用期限2020年3月末でそれ以降はkillステートメントで開いた瞬間データが消える仕様になっております。もし有料版出すときはkill外します(気が向いたら)

●気象庁情報のアドレスの説明

"https://www.data.jma.go.jp/obd/stats/etrn/view/daily_s1.php?prec_no=44&block_no=47662&year=2020&month=2&day=4&view="

アドレスは
1.気圧ありなしなどの観測情報の違いによるテーブルチェック
→s1 or a1 .php
2.都道府県コードチェック
→prec_no=
3 地域コードチェック
block_no=
4 年月
→year=   month=
以上のように分類することで表示しているようである。

※1地域コードと勝手に名称してますが正式名称ではないと思いますのでご了承を

いいなと思ったら応援しよう!