« 旧中山道 街道ルート上の天気をWebから取り込み一覧にする手順 | Main | Webクエリを使い連続した地域の天気予報を入手するマクロ »

04/01/2016

VBAとExcel Webクエリを使い複数地域の天気予報を入手する

中山道宿場町での天気予報を連続的に取得する方法を、ExcelのVBA で行ってみた。

《トライアル第一段階》
資料は、『エクセルの神髄(鵜原パソコンソフト研究所)』さんが書いた『WEBデータの取得方法』の中のQueryTablesを参考にし、使わせて戴いた。

私には、VBAの基礎知識が無い状態で始めたので、
先ず資料の Sub sample1() にあるリストをそのままVBAのエディタの中にコピーし、
このsample1の中に書かれている URLの記述部 のみを、入れ替えてみた。

このリストには、WebSelectionType = xlAllTables
Excel と指定しているので、シートの中には、天気予報の table 部分のみ そっくりデータがコピーされた事を確認した。

換言すると、
オリジナルの『http://info.finance.yahoo.co.jp/ranking/?kd=1&tm=d&vl=a&mk=1&p=1』を
天気予報の『http://www.tenki.jp./forecast/3/23/4830/20432-10days.html』に入れ替えただけである。この方法で、天気予報の table 部分のみ そっくりデータがコピーされた。

参考にさせて戴いた
エクセルの神髄(鵜原パソコンソフト研究所)』にも書かれていたが、極めて簡単にデータが取得できることが分かった。

《トライアル第二段階》
URLデータは幾つかあるので、 Range("$A$1") 部分を、自動で連続的に変更できるようにした。トライアルしてみたところ、URLのテーブルを置く場所と、Webからデータを読み取って、その結果を書き出す場所は、同じWorkSheetに置かないとマクロでエラーが生じて処理が出来なかった。
また、セルの中に書かれている天気の二重表現を単独の記述とする方法は、この処理内での処置方法が分からないので、別に外部処理とする事にした。


《処理の手順とVBAマクロ》
1)地域と天気予報URLを下図のように、Excelのシート上に作成した。
Url_2このデータは、「12データ」まで書いてあり、マクロも「データ数が12」であるとして記述した。

データは左列から、番号、地域名称、URLアドレス(http:// を省いて記載した) として並べた。


2)マクロは下図のように記述した。
Weatherscraper_macro 
①読み込みデータ数は12個としたので、データ数を変更する場合には、マクロの記述を変える必要がある。

②Webからの読み取り結果は、1)のデータの下部に書き込むようにした。
ここでは、Sheetの20行目から下に書くようにした。

③データ書き込みに際し、地域名が分からないので、1)に地域名を書いておき、それを書き込み表示するようにした。

④この天気予報データでは、URLを実施した日から10日間の天気予報になる。
天気予報を知りたい 地域のURL のみで構成されているので、日付などを変更する手間が無く使えるのが良い。

« 旧中山道 街道ルート上の天気をWebから取り込み一覧にする手順 | Main | Webクエリを使い連続した地域の天気予報を入手するマクロ »

PC and PC troubles」カテゴリの記事

Comments

Post a comment

Comments are moderated, and will not appear on this weblog until the author has approved them.

(Not displayed with comment.)

TrackBack

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/540128/63422228

Listed below are links to weblogs that reference VBAとExcel Webクエリを使い複数地域の天気予報を入手する:

« 旧中山道 街道ルート上の天気をWebから取り込み一覧にする手順 | Main | Webクエリを使い連続した地域の天気予報を入手するマクロ »

July 2017
Sun Mon Tue Wed Thu Fri Sat
            1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31          

Recent Trackbacks

無料ブログはココログ