Selenium「ページ内のリンクURLを全て取得」

Edge/Chromeの現在のページ内のリンクURLを全て取得

Excel VBAマクロでEdge/Chromeを自動操作する際、
ページ内のリンクURLを全て取得したいケースがあります。

• 検索結果のリンクURLを、一覧形式で保存したい。
• 特定のHPのリンク先を、エクセル保存したい。

Linkデータからhref情報(URLリンク情報)を、for eachで取得するだけです。

Edge/Chromeでページ内のリンクURLを全て取得するコード

'■SeleniumBasicでページ内のリンクURLを取得する。
Dim driver As New Selenium.WebDriver
Public Sub sample()
    '■Chromeで起動
    driver.Start "chrome" 'Edgeの場合は driver.Start "edge"
    driver.Get "https://vba-create.jp/"
    
    Dim LinkURL As Variant 'As HTMLAnchorElement
    
    For Each LinkURL In driver.FindElementsByTag("a").Attribute("href")
        Debug.Print LinkURL
    Next LinkURL
    
End Sub

注意点