IE操作。特定文字のあるaタグをクリック

ExcelVBA

[ExcelVBA]

InnerTEXTでaタグの内側のテキストをとれる

On Error Resume Next
Dim i
For i = 0 To 9
    If InStr(objIE_livestar.Document.Links(i).InnerTEXT, "項目3") <> 0 Then
        objIE.Document.Links(i).Click
        IE_Complete objIE '表示終わるまで待つ処理(オリジナル)
        Sleep 100 'なんか入れないとうまくいかない時ある
        Exit For
    End If
Next
On Error GoTo 0


ちなみに他にはこんなのがある

.Href      'リンク先
.OuterText '自分を含む テキスト(Innerと変わりない？)
.OuterHTML '自分を含む HTML
.InnerHTML '内側のHTML
.Target    '_Blank や 表示先フレームの名前など


ネタ元