Excel VBA スクレイピング aタグを押すために苦戦しております。

Question

この度は、閲覧いただきありがとうございます。

早速ではございますが、現在、Excelにてスクレイピングの勉強をしているのですが
あるサイトで次のページに移動する方法に苦戦しております。

お力をお借りできましたら幸いです。

     <li class="pager-next visible-pc">
        <ul>
          <li class="pager-cell">
            <a href="/jp/search/?page=2&amp;keyword=de">　’←ここをクリックしたい。
              <i class="icon-arrow-right"></i>
            </a>
          </li>
        </ul>
      </li>

Sub test()
For Each element In htmlDoc.getElementsByClassName("pager-next visible-pc")
        If InStr(element.getAttribute("class"), "pager-cell") > 0 Then
            element.getElementsByTagName("a")(0).Click
        End If
Next element
End Sub

当方の勝手な認識では、pager-next visible-pcこのClassNameの下にpager-cellこのClassName
があった場合はaタグをクリックと言う感じで書いたのですが、押すことが出来ません。

どうしたら押せますでしょうか？

ご教授いただけましたら幸いです。

Comments

[meg_]

まず「htmlDoc.getElementsByClassName("pager-next visible-pc")」で要素は取得できていますか？

Answer 1

単純に、そのURLに navigate するのではダメですか。

objIE.navigate "サイトのURL/jp/search/?page=2&keyword=de"

そのURLが動的に変化するのなら、下記でどうでしょう。

Set element = htmlDoc.getElementsByClassName("pager-next")(0)
Set element = element.getElementsByClassName("pager-cell")(0)
element.getElementsByTagName("a")(0).Click

Comments

[masa1975]

ありがとうございます！

下記の方で押すことが出来ました。ありがとうございました。