iuiuiiiiVBA クリック処理

Question

①<a href="http://AAAx" target="_blank" data-ylk="slk:itemnm;pos:12" data-rapid_p="23">
パンaaawea</a>
①<a href="http://AAAA" target="_blank" data-ylk="slk:itemnm;pos:12" data-rapid_p="24">
鉛筆aaasaxa</a>
②<a href="http:/AAAB" target="_blank" data-ylk="slk:itemnm;pos:13" data-rapid_p="25">
かかかかicwhcwo</a>
③<a href="http://AAAC" target="_blank" data-ylk="slk:itemnm;pos:13" data-rapid_p="26">
ホワイトブラック</a>

タグURLを順番にクリックしたいのですが
data-ylk="slk:itemnm;pos:12"data-rapid_p="23"
data-ylk="slk:itemnm;pos:12"data-rapid_p="24" **
data-ylk="slk:itemnm;pos:13"data-rapid_p="25"**
data-ylk="slk:status;pos:13" data-rapid_p="26"

上記のタグを利用して一つづつ順番にURLをクリックする処理を行いたいです。

どなたかご存知ないでしょうか。
どうかご返答よろしくお願い致します。

Answer 1

こんな感じかな？

Sub sample()
  Dim objIE  As Object
  Dim objLink As Object

  Set objIE = CreateObject("InternetExplorer.Application")
  objIE.Visible = True 'ieを表示
  objIE.navigate "http://目的のページ.html"
  Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop '表示待ち

  For Each objLink In objIE.Document.Links
    Select Case objLink.getAttribute("data-rapid_p")
    Case "23", "24", "25", "26"
      objLink.Click
    End Select
  Next

End Sub

Comments

[qopedoeqp]

すみません。。うまくいきませんでしたので
質問内容を変更させていただきました。
回答して頂けたら幸いです。。
どうかよろしくお願い致します。

[hatena19]

まずは、試したコードを提示する。そのうえで、
「うまいきませんでした」だけでなく、どのようにうまくいかないのか具体的に說明する。
エラーがでるならそのエラー内容を提示するとか、目的のページが開かないとか、・・・

いちおう、回答は修正しておきましたが、今後は上記のことを考慮してください。