0
1

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 3 years have passed since last update.

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

Last updated at Posted at 2020-06-11

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

0
1
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
0
1

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?