WebDriverVBA「Edge/Chromeで表示中のWebページのタイトル/URLを取得」【ExcelVBA】

2022年、Internet Explorerのサポート終了→SeleniumBasicに置き換えた開発を進めましたが、
SeleniumBasicのインストールが厳しい環境のユーザー様も多く存在しました。
その為、自前でWebDriverを動かす「WebDriverVBA」の開発を進めました。

ある程度動くよう(SeleniumBasicに比べたらまだまだですが)になったため、
同じようにお困りのユーザーの方に、ソフトライセンス販売の形で提供致します。
WebDriverVBAを使用した際のサンプルコードを以下に記載します。

Chrome/Edgeの現在のページのタイトル取得/URL取得

Excel VBAマクロでWebDriverVBAを使用して、自動操作する際、
タイトルやURLを取得したいケースがあります。

• データスクレイピングして、エクセル保存したい場合
• 今後のウォッチ先を、エクセル保存したい場合
• ウェブクエリで取得したデータの参照元を、保存しておきたい場合

メソッドを準備していますので、そのまま使用する事で簡単に取得可能です。

Chrome/Edgeでページのタイトル/URL取得サンプルコード

Public Sub test_getPageTitle_URL()

    Dim driver As webDriverVBA
    Set driver = New webDriverVBA

    '■ドライバーを起動
    Call driver.Start(vcChrome)

    '■目的のサイトへ移動する
    Call driver.Navigate("https://vba-create.jp/")

    '■現在表示しているページタイトルを表示
    Debug.Print driver.GetPageTitle

    '■現在表示しているページURLを表示
    Debug.Print driver.GetCurrentUrl

End Sub

参考

• Driver起動・指定URLへ遷移
• ウインドウ最大化