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

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

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

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

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

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

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

◆Edge版

Edgeでの依頼だったので、ひとまずEdgeで動作するように作っています。
エラー処理などは入れていないので、使う際にはエラー処理や条件など追加して使ってください。

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 chkEdgeVersion_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 & "\edgedriver_win64.zip"
    '保存先をデフォルトから変更している方は変更してください。'
    uName = Environ("USERNAME")
    SeleniumDriverPath = "C:\Users\" & uName & "\AppData\Local\SeleniumBasic\edgedriver.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
'#######################################################'
'//【Edge】ブラウザのバージョンチェックします'
Function chkBrowserVer() As String
    Dim chkVer As String

    'Edgeの場合'
    chkVer = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Edge\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://msedgedriver.azureedge.net/" & BrowserVer & "/edgedriver_win64.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 & "\msedgedriver.exe", SeleniumDriverPath
    
    Set wsh = Nothing

End Sub

100

101

102

103

104

105

106

107

108

109

110

111

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 chkEdgeVersion_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 & "\edgedriver_win64.zip"

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

uName = Environ("USERNAME")

SeleniumDriverPath = "C:\Users\" & uName & "\AppData\Local\SeleniumBasic\edgedriver.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

'#######################################################'

'//【Edge】ブラウザのバージョンチェックします'

Function chkBrowserVer() As String

Dim chkVer As String

'Edgeの場合'

chkVer = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Edge\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://msedgedriver.azureedge.net/" & BrowserVer & "/edgedriver_win64.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 & "\msedgedriver.exe", SeleniumDriverPath

Set wsh = Nothing

End Sub

◆Egde版

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

投稿: 2022年6月22日

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

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

◆Edge版

◆Egde版

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

おすすめ

カテゴリー

プロフィール

Facebook

チャイ専門店　茶窓

Blog＆SNS

写真の販売

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

ブログについて

最近の投稿

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

◆Edge版

◆Egde版

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

おすすめ

VBA：パスの最後がフォルダかファイルかを確認する方法（GetAttr関数）

VBA：パスのファイル名から拡張子を取り除く方法（Split・InStrRev）

VBA：ファイルのバージョンチェック

カテゴリー

プロフィール

Facebook

チャイ専門店 茶窓

Blog＆SNS

写真の販売

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

ブログについて

最近の投稿

チャイ専門店　茶窓