2022年、Internet Explorerのサポート終了→SeleniumBasicに置き換えた開発を進めましたが、
SeleniumBasicのインストールが厳しい環境のユーザー様も多く存在しました。
その為、自前でWebDriverを動かす「WebDriverVBA」の開発を進めました。
ある程度動くよう(SeleniumBasicに比べたらまだまだですが)になったため、
同じようにお困りのユーザーの方に、ソフトライセンス販売の形で提供致します。
WebDriverVBAを使用した際のサンプルコードを以下に記載します。
Edge/Chromeでタグの任意の要素を取得するサンプルコード
WebDriverVBAではテキストの取得以外にも要素に含まれる情報を取得できます。
サンプルでは、当サイトのフッターのaタグに含まれるhref要素を取得します。
'■フッターの「トップページ」のhref要素
<a href="https://vba-create.jp/" aria-current="page">
トップページ
</a>
Public Sub test_GetAttribute()
Dim driver As webDriverVBA
Set driver = New webDriverVBA
'■ドライバーを起動
Call driver.Start(vcChrome)
'■目的のサイトへ移動する
Call driver.Navigate("https://vba-create.jp/")
'■ウインドウを最大化
Call driver.MaximizeWindow
'■読み込み待ち1秒
Call driver.Wait(1000)
'■aタグのhref要素を取得する
Debug.Print driver.GetAttribute("href", "//*[@id=""menu-item-742""]/a", vcXpath)
End Sub
参考
- WebDriverVBAまとめページ(ページが増えれば公開します。)
WebDriverVBAについて
Excel VBAでSeleniumBasicを使わずにEdge/Chromeでスクレイピングするためのツールです。
SeleniumBasicがインストールできない環境の方にもスクレイピングをお助けします。
料金などについてはこちらからお問い合わせくださいませ。



コメント