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