VBAでChromeを自動操作する – 初期設定編

RPA製品は色々とありますが、企業内でお手軽に無料で使うには色々と課題があり難しいかと思います。また、Pythonなどでスクレイピングしても、EXCELに結果を貼り付けて分析するなど、2度手間になることが多いかと思いまます。(非エンジニアにPythonをインストールさせることが最大の難関という話もあります)

ならば、企業PCには間違いなくインストールされているであろうExcel(VBA)を使い、そのままEXCEL上で分析を行う事で、面倒事や2度手間を回避することができるのではないかと考えました。

では早速、初期設定方法を紹介します。

SeleniumBasicのインストール

以下よりSeleniumBaiscの最新版をダウンロードします。画面の指示に従ってインストールしてください。いくつか選択肢はでますが、全てデフォルトで問題ありません。

Release SeleniumBasic v2.0.9.0 · florentbr/SeleniumBasic
CHANGELOG.txt

ChromeDriverのインストール

ChromeDriverのインストール前にお使いのPCにインストールされているChromeのバージョンを確認します。Chromeを立ち上げてアドレスバーに以下を入力します。

chrome://settings/help

上記画面の「90」部分が確認すべきバージョンとなります。同一バージョンのChromeDriverを以下のサイトからダウンロードしてください。(2021/5/23時点では「91」が最新バージョンです)

ChromeDriver - WebDriver for Chrome - Downloads
Current Releases If you are using Chrome version 95, please download ChromeDriver 95.0.4638.17 If you are using Chrome version 94, please download ChromeDriver...

ダウンロードしたファイルを展開しchromedriver.exeを取り出してください。chromedriver.exeは、以下フォルダーへコピーしてください。古いバージョンは上書きして問題ありません。

C:\Users\%USERNAME%\AppData\Local\SeleniumBasic

.NET Framework のインストール

.NET Frameworkがインストールされていないと、実行時にオートメーションエラーが発生します。.NET Frameworkをインストールするために、以下vbsをコマンドラインから実行してください。

C:\Users\%USERNAME%\AppData\Local\SeleniumBasic\Scripts\StartChrome.vbs

VBE(Visual Basic Editor)で参照設定

「Selenium Type Library」を参照設定します。VBEでIntelliSenseも効きコーディングが楽になります。

サンプルプログラム

簡単なサンプルプログラムを紹介します。グーグルにアクセスし、”rs-techdev”で検索するプログラムです。最後にStopとしているのは、プログラムが終了するとブラウザを閉じてしまうためです。Chromeが立ち上がり検索結果が表示されていれば、初期設定は完了です。

Option Explicit

Sub sample()
    Dim dr As New Selenium.WebDriver
    
    With dr
        .Start "chrome"
        .Get "https://www.google.co.jp/"
        .FindElementByName("q").SendKeys ("rs-techdev")
        .FindElementByName("btnK").Submit
    End With
    
    Stop
End Sub
タイトルとURLをコピーしました