VBA化する部分の作業手順

上記の手順のうち、1と5については、一度Excelを保存したら、そのまま再利用できますが、その他の手順は毎回繰り返す必要がありますので、この部分をVBA化しましょう。ただ、天気予報は頻繁に更新されるデータではありませんので、Excelを開いた時だけ自動実行されるようにします。

Excelを開いた時の自動実行

[Alt]+[F11]キーでVBエディタを開き、左ペインで［ThisWorkbook］を選択し、コードウィンドウの上部で、［Workbook］、［Open］を選択します。「Private Sub Workbook_Open()」は開いた時に自動実行されますので、この中にVBAを記述します（図11）。

図11 VBAのコード

以下では、細かなコードの説明について解説していきます(完全なコードは、ここ【著註：サンプルへのリンクをお願いします】からダウンロードしてください)。

Webサイトのデータの読み込み

「ActiveWorkbook.RefreshAll」の1行だけでOKで、データが更新されます。

広告表示行の削除

PRで始まる広告の行を行削除する部分は、リスト1のようなコードになります。

［リスト1］広告表示行の削除

    '広告表示行の削除
    Range("テーブル1").Select   '（1）
    firstRow = Selection.Cells(1, 1).Row    '（2）
    For i = 1 To Selection.Rows.Count   '（3）
        If Left(Cells(firstRow + i - 1, 1).Value, 2) = "PR" Then  '(4)
            Rows(firstRow + i - 1).Delete '（5）
        End If
    Next

手作業の手順1で作成された「テーブル1」という名前を利用して、データ部分を選択します（1）。選択範囲の最上行の絶対行番号をfirstRow変数に格納します（2）。セルの内容を探索するため、上から順に選択範囲の行数だけ繰り返します（3）。当該行の1列目のセルの最初2文字が「PR」だったら（4）、その行を削除します（5）。

日付、天気、気温の列の分割

1列にまとまっている日付、天気、気温を列に分ける部分は、リスト2のようなコードになります。

［リスト2］日付、天気、気温の列の分割

    Range("テーブル1").Select   '（1）
    Selection.Resize(ColumnSize:=1).Select  '（2）
    Application.DisplayAlerts = False   '（3）
    Selection.TextToColumns DataType:=xlDelimited, Space:=True      '（4）
    Application.DisplayAlerts = True

「区切り位置」を利用する範囲は1列である必要があります。手作業の時は、元々「テーブル1」範囲が1列でしたが、今はデータ分割により3列に広がっています。そこで、データ部分を選択し（1）、Resizeメソッドを使って、列幅（ColumnSize）を1に狭めます（2）。

この後、「区切り位置」操作を利用するため、(4)TextToColumnsメソッドを利用します。指定文字で区切るので、DataType引数にはxlDelimitedを指定します（固定幅で区切る場合はxlFixedWidth）。また、スペースを指定文字とするため、Space引数をTrueにします（4）。なお、第2、3列に前回のデータが残っているため、上書き確認メッセージで止まらないよう、Application.DisplayAlertsをFalseに設定しておきます（3）。

列幅の修正

「Cells.Select」で表全体を選択して、「Cells.EntireColumn.Autofit」で列幅を自動調整しています。

まとめ

今回は、東京地方の例で説明しましたが、XMLとの対応付けを行う手順でURLを変更すれば、みなさんの自宅、職場、旅行先についても同様に向こう1週間の天気予報が作れます。ぜひ、一度お試しください。

WINGSプロジェクト 遠藤 存著/山田祥寛監修
WINGS プロジェクトについて
テクニカル執筆プロジェクト(代表山田祥寛)。海外記事の翻訳から、主にWeb開発分野の書籍・雑誌/Web記事の執筆、講演等を幅広く手がける。2011年5月時点での登録メンバは35名で、現在も一緒に執筆をできる有志を募集中。