WebDriverVBA「Edge/Chromeページを一つ前に戻る/先に進む」【ExcelVBA】

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

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

Edge/Chromeのページを一つ前に戻る/先に進む

Excel VBAマクロでEdge/Chromeを自動操作する際、下記のようなブラウザの基本動作も行うことができます。

• 一つ前に戻る
• 一つ先に進む

既にメソッドが準備されていますので、そのまま使用する事で簡単に動作させることができます。

Edge/Chromeのページを一つ前に戻る/先に進むサンプルコード

Public Sub test_forward_back()

    Dim driver As webDriverVBA
    Set driver = New webDriverVBA

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

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

    '■②動作確認用に、別ページへ移動する
    Call driver.Navigate("https://vba-create.jp/about")

    '■読み込み待ち（1秒待つ）
    Call driver.Wait(1000)

    '■ページを一つ前に戻る（①に遷移）
    Call driver.GoBack

    '■読み込み待ち（1秒待つ）
    Call driver.Wait(1000)

    '■ページを一つ先へ進む（②に遷移）
    Call driver.GoForward

End Sub

注意点

• IEの場合は、最初のページの表示(GoHome)や、検索(GoSearch)が用意されていましたが、WebDriverVBAでは用意していません。

参考

• Driver起動・指定URLへ遷移
• ウインドウ最大化
• 読み込み待ち