大日本プロレスの、後楽園ホール大会を表示 (getElementsByTagNameでタグ要素を取得)

公式サイトから興味のある大会を探して表示

公式サイトの興行日程の中で、自分の興味のある興行をVBAから表示する方法。
地名や会場名を使い、近所で開催される興行を調べる時に利用できる。

サンプルでは大日本プロレスを利用する。

大日本プロレス公式サイトのスケジュール
http://www.bjw.co.jp/calender.php

各興行へのリンクが画像ではなくテキストなのがポイント。
今回はここから後楽園ホール大会のリンクを探し、表示する。

大日本プロレスの後楽園ホール大会を表示するサンプル

Sub 大日本プロレスの後楽園ホール大会を表示()

    Dim obIE As Object  'IEオブジェクトを準備

    Set obIE = CreateObject("InternetExplorer.Application")
    obIE.Visible = True
    obIE.Navigate "http://www.bjw.co.jp/calender.php"

    Do While obIE.ReadyState <> 4
        Do While obIE.Busy = True
        Loop
    Loop

    Dim Obj As Object

    For Each Obj In obIE.Document.getElementsByTagName("a")
        '各アンカータグの処理
        If Obj.innerText Like "*後楽園ホール*" Then
            Obj.Click
            Exit For
        End If
    Next

End Sub

getElementsByTagName で取得したa要素がコレクションとしてObjに格納される。
innerTextでタグ内のテキストを取得し、「後楽園ホール」が含まれるものをクリック。

実行結果

後楽園ホール大会(のテキストリンク)が2回以上ある場合は、1番最初のページだけが表示される。
後楽園ホール大会(のテキストリンク)が無い場合はスケジュールページを表示した状態で止まる。