Selenium 指定文字列を含むリンク先URLを全て取得したい

Question

お世話になります。

ページ内から、指定文字列を含むリンク先URLを全て取得し、
クローリングを行うツールを作成しています。

Dim anchor As New HTMLAnchorElement

For Each anchor In objIE.Document.Links
        
        '検索したURLに特定文字が入っていた場合のみSheet2に蓄積
   '     If anchor Like "*/kensaku/*" Then
            
   '         ws1.Range("AE4").Value = anchor.href
   '         Last_Row = ws1.Cells(Rows.Count, 31).End(xlUp).Row
   '         Last_Row = Last_Row + 1
        
   '     End If

このような記述をしたいのですが、
SeleniumではHTMLAnchorElementの宣言が出来ないようで行き詰まっています。

どなたかご教示いただけないでしょうかm(__)m
もちろん上記方法以外でも構いません。

宜しくお願い致します。

Answer 1

Selenium なのか等 よく分かりませんが

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If




Sub test()


    Dim Driver As New Selenium.WebDriver
    Driver.Start "chrome"
    Driver.Get "検索対象URL"
    
    For Each anchor In Driver.FindElementsByTag("a").Attribute("href")

       
         '検索したURLに特定文字が入っていた場合のみSheet2に蓄積
         If anchor Like "*/kensaku/*" Then
             
             Debug.Print anchor
   '         ws1.Range("AE4").Value = anchor
   '         Last_Row = ws1.Cells(Rows.Count, 31).End(xlUp).Row
   '         Last_Row = Last_Row + 1

         End If

    Next

End Sub

Sub test_2()

    Dim objIE
    Dim anchor As HTMLAnchorElement
    
    
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.navigate "検索対象URL"
    
    Do While objIE.Busy = True Or objIE.readyState <> 4
       DoEvents
       Sleep 1
    Loop

    Do While objIE.document.readyState <> "complete"
       DoEvents
       Sleep 1
    Loop
    
    For Each anchor In objIE.document.Links
    

       
         '検索したURLに特定文字が入っていた場合のみSheet2に蓄積
         If anchor.href Like "*/kensaku/*" Then
             
             Debug.Print anchor.href
   '         ws1.Range("AE4").Value = anchor.href
   '         Last_Row = ws1.Cells(Rows.Count, 31).End(xlUp).Row
   '         Last_Row = Last_Row + 1

         End If

    Next
    
    objIE.Quit
    Set objIE = Nothing


End Sub

あと 参照設定を忘れずに 行って下さい

Comments

[__Me__]

回答ありがとうございます！
早速試してみたところ、エラー等は出ませんが、1件も取得できずの状態です；；
もしかするとTagが上手く取得できていないのかもしれません。試行錯誤してみます。

[Reach]

上記コードでは シートへの転記は しておりません

Answer 2

これで 全てのhrefが イミディエイトウインドウに 表示されると思います

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If




Sub test()


    Dim Driver As New Selenium.WebDriver
    Driver.Start "chrome"
    Driver.Get "検索対象URL"

    For Each anchor In Driver.FindElementsByTag("a").Attribute("href")

　　　　　Debug.Print anchor　
         '検索したURLに特定文字が入っていた場合のみSheet2に蓄積
         If anchor Like "*/kensaku/*" Then

             Debug.Print anchor
   '         ws1.Range("AE4").Value = anchor
   '         Last_Row = ws1.Cells(Rows.Count, 31).End(xlUp).Row
   '         Last_Row = Last_Row + 1

         End If

    Next

End Sub

Sub test_2()

    Dim objIE
    Dim anchor As HTMLAnchorElement


    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.navigate "検索対象URL"

    Do While objIE.Busy = True Or objIE.readyState <> 4
       DoEvents
       Sleep 1
    Loop

    Do While objIE.document.readyState <> "complete"
       DoEvents
       Sleep 1
    Loop

    For Each anchor In objIE.document.Links


　　　　　Debug.Print anchor.href
         '検索したURLに特定文字が入っていた場合のみSheet2に蓄積
         If anchor.href Like "*/kensaku/*" Then

             Debug.Print anchor.href
   '         ws1.Range("AE4").Value = anchor.href
   '         Last_Row = ws1.Cells(Rows.Count, 31).End(xlUp).Row
   '         Last_Row = Last_Row + 1

         End If

    Next

    objIE.Quit
    Set objIE = Nothing


End Sub

Comments

[__Me__]

回答ありがとうございます。
時間が作れず、実際にまだ試せておりませんが、
質問から数日経過しましたので、一旦回答を締め切らせていただきます。
ありがとうございました。