VBA：【Selenium×Chrome】ブラウザのドライバ（WebDriver、chromedriver）のバージョンチェックと自動更新

by chasou_tech · 公開済み 2022年6月22日 · 更新済み 2023年3月27日

「Selenium」を導入しようとして、ブラウザのドライバのバージョン関連で困った点。

ドライバが頻繁にアップデートされるので、都度バージョンエラーで動かなくなる。

会社のブラウザのバージョンが管理されていて、古いものである場合が多い。

ユーザが使うPCによってドライバのバージョンが異なる場合がある。

これらをユーザの手を煩わせずに解決しようと思って、ブラウザのドライバ(chromedriver)とSelenium Basicのドライバのバージョンを比較して、異なるバージョンの場合は上書きするようなVBAを作成しました。

◆Chrome版

Option Compare Database

'Windows APIの宣言'
    Private Declare PtrSafe Function URLDownloadToFile _
        Lib "urlmon" Alias "URLDownloadToFileA" _
        (ByVal pCaller As Long, _
        ByVal szURL As String, _
        ByVal szFileName As String, _
        ByVal dwReserved As Long, _
        ByVal lpfnCB As Long) As Long
'*********************************************************'
Private Sub chkChromeVersion_Click()
    Dim BrowserVer As String
    Dim thisDriverVer As String
    Dim xTmpPath As String
    Dim DownloadFileName As String
    Dim SeleniumDriverPath As String
    Dim uName As String
    
    xTmpPath = CurrentProject.Path & "\xTmp"
    DownloadFileName = xTmpPath & "\chromedriver_win32.zip"
    '保存先をデフォルトから変更している方は変更してください。'
    uName = Environ("USERNAME")
    SeleniumDriverPath = "C:\Users\" & uName & "\AppData\Local\SeleniumBasic\chromedriver.exe"
    '"
    'フォルダの有無の確認。なければフォルダを作成する'
    If Dir(xTmpPath, vbDirectory) = "" Then
        MkDir xTmpPath
    End If
    
    'PCのブラウザのバージョンをチェック'
    BrowserVer = chkBrowserVer
    
    'Seleniumで保存しているドライバのバージョンチェック'
    If Dir(SeleniumDriverPath) = "" Then
        'ない場合はチェックせず、新しいファイルを書き込む'
    Else
        thisDriverVer = chkDriverVer(SeleniumDriverPath)
    End If
    
    If BrowserVer <> thisDriverVer Then
        'ブラウザバージョンと一致したドライバのダウンロード'
        Call DriverDownload(BrowserVer, DownloadFileName)
        
        'ダウンロードしたファイルを解凍して所定の場所にドライバを保存'
        Call DriverUpdate(DownloadFileName, xTmpPath, SeleniumDriverPath)
    Else
        MsgBox "バージョン一致" '何もしない'
    End If

    MsgBox "完了"

End Sub
'*********************************************************'
'//【Chrome】ブラウザのバージョンチェック'
Function chkBrowserVer() As String
    Dim chkVer As String

    chkVer = "HKEY_CURRENT_USER\SOFTWARE\Google\Chrome\BLBeacon\version"
    chkBrowserVer = CreateObject("WScript.Shell").RegRead(chkVer)
    
End Function
'*********************************************************'
'//現在SeleniumBasicフォルダに保存されているドライバのバージョンをチェックします'
Function chkDriverVer(SeleniumDriverPath As String) As String
    Dim FSO As Object

    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    chkDriverVer = FSO.GetFileVersion(FileName:=SeleniumDriverPath)

End Function
'*********************************************************'
'//ドライバをダウンロードします'
Public Sub DriverDownload(BrowserVer As String, dFileName As String)   
    Dim dURL As String
    Dim dResult As String
    
    'ダウンロードするファイルのURL'
    dURL = "https://chromedriver.storage.googleapis.com/" & BrowserVer & "/chromedriver_win32.zip"
    
    'ダウンロード'
    dResult = URLDownloadToFile(0, dURL, dFileName, 0, 0)

End Sub
'*********************************************************'
'//ドライバを解凍して特定の場所に保存します。'
Public Sub DriverUpdate(DownloadFileName As String, xTmpPath As String, SeleniumDriverPath As String)
    Dim psCommand As String
    Dim wsh As Object
    Dim dResult As String

    '//実行するPowerShellのコマンド作成。「 -Force」で上書き。'
    psCommand = "powershell -NoProfile -ExecutionPolicy Unrestricted Expand-Archive -Path " & DownloadFileName & " -DestinationPath " & xTmpPath & " -Force"

    Set wsh = CreateObject("WScript.Shell")
    
    '//PowerShellのコマンド実行'
    '指定した場所に解凍されます。'
    dResult = wsh.Run(Command:=psCommand, WindowStyle:=0, WaitOnReturn:=True)
    
    '解凍したexeファイルをSeleniumのドライバに上書き'
    FileCopy xTmpPath & "\chromedriver.exe", SeleniumDriverPath
    
    Set wsh = Nothing

End Sub

100

101

102

103

104

105

106

107

Option Compare Database

'Windows APIの宣言'

Private Declare PtrSafe Function URLDownloadToFile _

Lib "urlmon" Alias "URLDownloadToFileA" _

(ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

'*********************************************************'

Private Sub chkChromeVersion_Click()

Dim BrowserVer As String

Dim thisDriverVer As String

Dim xTmpPath As String

Dim DownloadFileName As String

Dim SeleniumDriverPath As String

Dim uName As String

xTmpPath = CurrentProject.Path & "\xTmp"

DownloadFileName = xTmpPath & "\chromedriver_win32.zip"

'保存先をデフォルトから変更している方は変更してください。'

uName = Environ("USERNAME")

SeleniumDriverPath = "C:\Users\" & uName & "\AppData\Local\SeleniumBasic\chromedriver.exe"

'フォルダの有無の確認。なければフォルダを作成する'

If Dir(xTmpPath, vbDirectory) = "" Then

MkDir xTmpPath

End If

'PCのブラウザのバージョンをチェック'

BrowserVer = chkBrowserVer

'Seleniumで保存しているドライバのバージョンチェック'

If Dir(SeleniumDriverPath) = "" Then

'ない場合はチェックせず、新しいファイルを書き込む'

Else

thisDriverVer = chkDriverVer(SeleniumDriverPath)

End If

If BrowserVer <> thisDriverVer Then

'ブラウザバージョンと一致したドライバのダウンロード'

Call DriverDownload(BrowserVer, DownloadFileName)

'ダウンロードしたファイルを解凍して所定の場所にドライバを保存'

Call DriverUpdate(DownloadFileName, xTmpPath, SeleniumDriverPath)

Else

MsgBox "バージョン一致" '何もしない'

End If

MsgBox "完了"

End Sub

'*********************************************************'

'//【Chrome】ブラウザのバージョンチェック'

Function chkBrowserVer() As String

Dim chkVer As String

chkVer = "HKEY_CURRENT_USER\SOFTWARE\Google\Chrome\BLBeacon\version"

chkBrowserVer = CreateObject("WScript.Shell").RegRead(chkVer)

End Function

'*********************************************************'

'//現在SeleniumBasicフォルダに保存されているドライバのバージョンをチェックします'

Function chkDriverVer(SeleniumDriverPath As String) As String

Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")

chkDriverVer = FSO.GetFileVersion(FileName:=SeleniumDriverPath)

End Function

'*********************************************************'

'//ドライバをダウンロードします'

Public Sub DriverDownload(BrowserVer As String, dFileName As String)

Dim dURL As String

Dim dResult As String

'ダウンロードするファイルのURL'

dURL = "https://chromedriver.storage.googleapis.com/" & BrowserVer & "/chromedriver_win32.zip"

'ダウンロード'

dResult = URLDownloadToFile(0, dURL, dFileName, 0, 0)

End Sub

'*********************************************************'

'//ドライバを解凍して特定の場所に保存します。'

Public Sub DriverUpdate(DownloadFileName As String, xTmpPath As String, SeleniumDriverPath As String)

Dim psCommand As String

Dim wsh As Object

Dim dResult As String

'//実行するPowerShellのコマンド作成。「 -Force」で上書き。'

psCommand = "powershell -NoProfile -ExecutionPolicy Unrestricted Expand-Archive -Path " & DownloadFileName & " -DestinationPath " & xTmpPath & " -Force"

Set wsh = CreateObject("WScript.Shell")

'//PowerShellのコマンド実行'

'指定した場所に解凍されます。'

dResult = wsh.Run(Command:=psCommand, WindowStyle:=0, WaitOnReturn:=True)

'解凍したexeファイルをSeleniumのドライバに上書き'

FileCopy xTmpPath & "\chromedriver.exe", SeleniumDriverPath

Set wsh = Nothing

End Sub

◆Egde版

VBA：【Selenium×Edge】ブラウザのドライバ(webdriver、edgedriver)のバージョンチェックと自動更新用VBAコード

投稿: 2022年6月17日

【VBA×Selenium】Edge：ブラウザのドライバとSelenium Basicのブラウザのドライバのバージョンを比較して、異なるバージョンの場合は上書きする方法について

VBA：【Selenium×Chrome】ブラウザのドライバ（WebDriver、chromedriver）のバージョンチェックと自動更新

◆Chrome版

◆Egde版

VBA：【Selenium×Edge】ブラウザのドライバ(webdriver、edgedriver)のバージョンチェックと自動更新用VBAコード

おすすめ

カテゴリー

プロフィール

Facebook

チャイ専門店　茶窓

Blog＆SNS

写真の販売

サーバー・PC購入はこちらから

ブログについて

最近の投稿

VBA：【Selenium×Chrome】ブラウザのドライバ（WebDriver、chromedriver）のバージョンチェックと自動更新

◆Chrome版

◆Egde版

VBA：【Selenium×Edge】ブラウザのドライバ(webdriver、edgedriver)のバージョンチェックと自動更新用VBAコード

おすすめ

VBA：【Selenium】ブラウザの読み込み完了まで待機する方法

VBA：【ADOX】AccessDBとテーブルの作成、プロパティの設定

VBA：【Selenium】Selenium Basic実行時のオートメーションエラー解消について3つのポイント

カテゴリー

プロフィール

Facebook

チャイ専門店 茶窓

Blog＆SNS

写真の販売

サーバー・PC購入はこちらから

ブログについて

最近の投稿

チャイ専門店　茶窓