大日本プロレスの、後楽園ホール大会を表示 (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でタグ内のテキストを取得し、「後楽園ホール」が含まれるものをクリック。