'サンプル3.5.2_リンクをクリックする
Public Sub clickLink()
Dim ie As
InternetExplorer
Dim htdoc As
HTMLDocument
Dim Anchors As Object
Dim Anchor As
HTMLAnchorElement
'操作対象Web画面を取得
Set ie =
Day2.getIE("ボタンやリンクの例")
'ドキュメントを取り出す(参照設定:Microsoft HTML Object
Library)
Set htdoc =
ie.Document
'ドキュメントに含まれるすべてのA要素を取り出す
Set Anchors =
htdoc.getElementsByTagName("A")
'すべてのA要素内の値を出力する
For Each Anchor In
Anchors
If
Anchor.innerText = "Googleへ" Then
Anchor.click
Exit For
End
If
Next
End Sub