Selenium VBAマクロ
当ページのリンクには広告が含まれています。
VBAからSeleniumを利用してchromeブラウザーを制御するマクロを作成しました。
まずはSeleniumとchromedriverをVBAで使えるように環境設定をします。
目次
Seleniumのインストール
よしぼんSeleniumBasicの最新版をダウンロードします。
よしぼんダウンロードしたexeファイルをクリックしてインストールします。
よしぼんI accept the agreementをクリックして
Next> で次に進みます。
よしぼん複数のWebDriverがありますが、今回はchromeを使うのでそれ以外はチェックを外します。
よしぼんインストール場所と内容の最終確認が表示されるのでNext＞をクリックして次に進みます。（この時インストールされるファルダを記録しておいてください。chromdrierを更新する際に必要になります。）
よしぼん上記が表示されればインストール完了です。
ChromeDriverのインスtール
よしぼんchromeブラウザーのバージョンを確認しましょう。
最終バージョンと一つ前がリストにあります。
よしぼんWIindowsの場合は chromedriver win32.zipをダウンロードします。
よしぼんダウンロードしたchromedriver.exeを先ほどインストールしたSeleniumのフォルダに上書き保存します。
Selenium Libraryの読込み
Excel VBAを起動します。
よしぼんツールの参照設定をクリックすると
読み込むライブラリーを選択できます。
よしぼんSelenium Type LibraryにチェックをいれてOKを押します。
よしぼんStartChrome.vbsをクリックすると下記のエラーがでますので
FrameWorkをインストールします。
よしぼんこれで環境設定は終わりです。
Selenium サンプルプログラム
OpenBonyoshiSite
Sub OpenBonyoshiSite()
Dim driver As New Selenium.WebDriver
Dim myBy As New By
Dim sURL As String: sURL = "https://tech.bonyoshi.com/"
'■Chromeは自動テストソフトウェアによって制御されていますを非表示にする
driver.SetCapability "goog:chromeOptions", "{""excludeSwitches"":[""enable-automation""]}"
'■chromブラウザーを開きます
driver.Start "chrome"
driver.Get sURL
'■最大サイズに変更します
driver.Window.Maximize
driver.Wait 5000（5秒待機）
'■指定サイズに変更SetSize(Width, Height)
driver.Window.SetSize 1280, 640
driver.Wait 5000（5秒待機）
'■chromeブラウザーを閉じます
driver.Close
End Sub
コメント