リンクへ飛ぶ3

innerTextの文言から判別し、
クリックによりリンクへ飛ぶ方法。

＜サンプル＞
Dim objIE As InternetExplorer

Sub リンクへ飛ぶ()
    '1:IEを起動する
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True '見えるようにする
    objIE.navigate "http://www.forest.impress.co.jp/library/software/pluslhaca/" 'URLを適宜入力する
  
    Do While objIE.Busy Or objIE.readyState < READYSTATE_COMPLETE
        DoEvents
    Loop
   
    '2:リンクを取得する
    For Each obj In objIE.document.getElementsByTagName("a")  'A herfタグを見つける
        If obj.innerText = "ダウンロード" Then
         'ﾀﾞｳﾝﾛｰﾄﾞと表示されているリンクをクリックする
            obj.Click
            Exit For 'ループから抜ける
        End If
    Next
End Sub