VBA4 ページ内のリンクに遷移

Dim ObjIE As Object '変数を定義
Dim Obj As Object '変数を定義

Sub IE_open()

Set ObjIE = CreateObject("InternetExplorer.Application") 'IEを開く際のお約束
ObjIE.Visible = True 'IEを開く際のお約束
ObjIE.Navigate "http://www.yahoo.co.jp/" '開きたいサイトのURLを指定

Do While ObjIE.ReadyState <> 4 'サイトが開かれるまで待つ（お約束）
Do While ObjIE.Busy = True 'サイトが開かれるまで待つ（お約束）

Loop
Loop

For Each Obj In ObjIE.Document.getElementsByTagName("a")　'表示されているサイトのアンカータグ一つずつを変数objにセット
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'各アンカータグ単位に以下の処理を実施

If Obj.innerText = "ファイナンス" Then　　　　　　　　　'アンカータグの表示内容が「ファイナンス」の場合に以下の処理を実施
Obj.Click　　　　　　　　　　　　　　　　　　　　　　'上記に該当するタグをクリック
Exit For 'クリック後、処理を抜ける
End If

Next　　　　　　　　　　　　　　　　　　　　　　　　　　'次のタグを処理

End Sub


http://billboardtop100.net/2011/02/excel-vba-ie-internet-explorer-click-anchor-tag.html