Windows 10 + Excel2016 VBA seleniumbasic で chromedriver / msedgedriver を使ってみる

目的

今日の時点で Chrome や Edge(Chromium)をSeleniumBasicより操作してみる
Firefox(geckodriver)については以下にあるように、使用不可だと思ったほうが良いようだ
※geckodriver.exe -> firefoxdriver.exe に修正後起動してもエラーストップでした
Where can I found FirefoxDriver XPI? #199

SeleniumBasicのインストール

Seleniumbasicの Release page より SeleniumBasic-2.0.9.0.exe をDLする
exeを実行すると、C:\Users\user_name\AppData\Local\SeleniumBasic にインストールされる
ソースコードのプロジェクトをVS2019で開くと .NET Framework 3.5 を指定しているので
Windowsの設定 -> アプリ -> オプション機能 -> Windowsのその他の機能 -> .NET Framework 3.5 が有効であることを確認する

ChromeDriverのインストール

Chrome についてよりChromeのバージョンを確認する
今日の時点ではバージョン: 83.0.4103.61（Official Build）（64 ビット）
ChromeDriver - WebDriver for Chromeよりバージョンに合わせてDLする
chromedriver_win32.zip を解凍後 chromedriver.exe を SeleniumBasic フォルダに上書きする

MSEdgeDriver

バージョン情報よりEdgeのバージョンを確認する
今日時点ではバージョン 83.0.478.45 (公式ビルド) (64 ビット)
WebDriverよりバージョンに合わせてDLする
edgedriver_win64.zip を解凍後 msedgedriver.exe を SeleniumBasic フォルダに上書後 edgedriver.exe に変更する

Excel VBA で使用する

VBAのIDEの　tool -> 参照設定より C:\Users\user_name\AppData\Local\SeleniumBasic\Selenium32.tlb を追加する

サンプルコード

Sub OpenEdge()
'
    Dim drv As New EdgeDriver
    Set drv = New EdgeDriver
'
    drv.Start
    drv.Window.SetPosition 0, 0
    drv.Window.SetSize 800, 800
    drv.Get "https://www.google.co.jp/search?q=selenuim&oq=selenuim"
'
    MsgBox drv.Window.Title
'
    drv.Quit
'
End Sub

Sub OpenChrome()
'
    Dim drv  As ChromeDriver
    Set drv = New ChromeDriver
'
    drv.Start
    drv.Window.SetPosition 0, 0
    drv.Window.SetSize 1000, 800
    drv.Get "https://www.google.co.jp/search?q=selenuim&oq=selenuim"
'
    MsgBox drv.Window.Title
'
    drv.Quit
'
End Sub

参考にしたサイトはこちら

Windows 10 Pro x64 + Excel2016 x86 VBA で Seleniumbasic + chromedriver を使ってみる
 Windows 10 + Python3 + selenium + chromedriver で headless chrome を試してみる
 Windows 10 + Python3 + selenium + msedgedriver で headless edge(Chromium) を試してみる
 Where can I found FirefoxDriver XPI? #199