VBA IE操作におけるリンククリックについて

VBAでIEの操作を行いたいのですが、少し苦手です。

同じページに"詳細"という名前の付いたリンクが複数個あるとします。

このリンクをクリックしたいとして、
　①ページ内の"詳細"のリンクの総数を数える。
　②そのうちの３番目の"詳細"リンクをクリックする。

ことを目的とした場合、どのように書けば良いか教えてください。


For Each objTag In objIE.document.getElementsByTagName("A")
If InStr(objTag.outerHTML, "詳細") > 0 Then
objTag.Click
Exit For
End If
Next


だと、１番目の"詳細"リンクしかクリックできません。よろしくお願いします。

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2019/06/21 17:09

これで試してみてください。

仕組みはお分かりになるはずです。

With objIE.document
　　For i = 0 To .getElementsByTagName("A").Length -1
　　　Set objTag = .getElementsByTagName("A")(i)
　　　If InStr(objTag.outerHTML, "詳細") > 0 Then
　　　　j = j + 1　'回数
　　　　If j = 3 Then
　　　　　objTag.Click
　　　　　Exit For
　　　　End If
　　　End If
　　Next
　End With
　objIE.Quit
　Set objIE = Nothing

この回答へのお礼

希望通り動きました！ありがとうございました。

お礼日時：2019/06/21 22:27