Webサイトのリンクをまとめて取得【Selenium Basic × ExcelVBA】

SeleniumBasicでChrome操作を行い、接続したWebサイトのリンクをまとめて取得し、セルの値に代入していく

aタグの要素を取得する為に、FindElementsByTagメソッドを使用し("a")を指定し要素を取得する

その中のhref属性を取得したいので.Attributeを使用し、hrefを引数に設定し取得しセルに値を入れる

Offsetを使用し1行ずつ下にずらす古典的な方法で全てのaタグのhref属性を順番に1行ずつセルに入れていく実践

ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ

実際に使用したサンプルコード

Option Explicit
Public Sub sample()

Dim driver As New Selenium.ChromeDriver

Dim リンクタグ As WebElement

With driver

.Get "https://vba.company/"

Range("B16").Select

For Each リンクタグ In .FindElementsByTag("a")

ActiveCell.Value = リンクタグ.Attribute("href")
ActiveCell.Offset(0, 1).Value = リンクタグ.Text
ActiveCell.Offset(1, 0).Select

Next

End With

End Sub