【Edge×Selenium×VBA】スクレイピング時の実行時エラー0への対策

Edge×Selenium×VBAでWebスクレイピング

Edge×Seleniumbasic×VBAでWebスクレイピングを検討されている方向けの記事です。

自身の経験談を記事にしました。

Seleniumbasic（セレニウムベーシック）のダウンロード、インストール、Edgeドライバーのセット完了。

いざ実行・・・してみましたが「実行時エラー0」が出てしまった方向けに解説を用意しました。

この状態ではSeleniumは動かないのでスクレイピングできません。困りました・・・。

Edgeのドライバーをインストール時に何か操作を間違えたかも？と考えてしまうのですが他に要因があります。

EnjoyExcel

私いつもはChromeを使っています。

今回Edgeで環境構築した際に実行時エラー0が出てしまいました。

実はEdgeの方がひと手間多いです。環境構築時にやらないといけない事が1つ増えます。

Chromeでしか環境構築してない方は作業を知らない事が想定されます。

作業は簡単です。一緒に確認していきましょう。

ブラウザ側のバージョンアップによりEdgeドライバーの入れ替えが必要な方にも参考になる記事です。

初期設定（環境構築）から簡単にコードを書く方法について解説しています。

ブラウザはChromeを使っていますが同様の方法で初期設定（環境構築）、コードが書けるようになります。

VBA×ChromeでWebスクレイピング難しい初期設定を分かりやすく解説

まずSeleniumbasicについて簡単に説明します。使用感の分かる動画も用意しました。続いて環境構築について解説しています。コードを書く前に必要な作業を理解する事が出来ます。最後にコードを解説している記事へのリンクを用意しました。

エラーの原因:ドライバーの名前を変えてない

初期設定（環境構築）の時に各ブラウザーのドライバーをインストールします。

Edgeのドライバーをインストールした際はmsedgedriver.exeという名前が付いています。

これをそのままSeleniumbasicの環境に置いてコードを実行してもエラーになります。

先頭の文字からmsを消してedgedriver.exeにしてからSeleniumbasicの環境にセットしましょう。

Edgeドライバーをインストールする方法

まずはご自身が使用しているEdgeのバージョンを確認する必要があります。

画像とリストで手順を確認しEdgeのバージョンを確認してください。

番号	工程	内容
1	「･･･」を押下	画面右上の･･･をクリック
2	「設定」を押下	画面右中央やや下の設定をクリック
3	「Microsoft Edge」についてを押下	画面左中央やや下のMicrosoft Edgeについてをクリック
4	バージョンの確認	画面中央からやや左上にバージョンの記載有り

Edgeのバージョンを確認する手順です

続いてEdgeドライバーをダウンロードします。

公式サイトEdgeWebDriver

Microsoft Edge WebDriver (英語) |Microsoft Edge 開発者

アクセスしていただくと最初の画面からやや下に最新バージョンという文字が出てきます。

この辺りにご自身のEdgeと同じバージョンの文字がないか確認して下さい。

良く分からない方はこちらをご覧ください

（例）113.0.1774.3　というバージョンでOSがWindowsの時は以下画像の赤枠をクリック

ひとまずデスクトップにダウンロードしてください。

おそらくZipファイルがダウンロードされます。

展開（解凍）するとmsedgedriver.exeとDriver_Notesが居ます。

このmsedgedriverの名前を変更します。

先頭のmsを取ってedgedriver.exeにしてください。

EdgeドライバーをSeleniumの環境にセット

最後にedgedriver.exeを所定の場所にセットします。

Seleniumのインストール先がデフォルトの方は以下アドレスを確認ください。

C:\Users\ここは各ユーザー名\AppData\Local\SeleniumBasic

既存のedgedriver.exeと置き換えてください。

これで実行時エラー0の対策は完了です。

Chromeはそのまま使える

余談ですがChromeドライバーはリネーム（名前を変える）する必要はないです。

ChromeドライバーをダウンロードしてexeファイルをそのままSeleniumの環境に置いてください。

EdgeもChromeもプロパティやメソッドは同じ

EdgeでもChromeでも持っているプロパティやメソッドは同じでした。

まだEdgeでしっかりSeleniumを使えてないのですがおそらくChromeと同じことができます。

Edgeでgoogleにアクセスして検索窓にキーワードを入力し検索ボタンを押すというコードです。

検索した後はそのままブラウザをクローズしています。

コードをコピーする

Sub EdgeでGoogle検索()
 
Dim Driver As New EdgeDriver
 
Driver.Get "https://www.google.com"
 
Driver.FindElementByName("q").SendKeys ("VBA Webスクレイピング　初期設定")
 
Driver.Wait 1000  
 
Driver.FindElementByName("btnK").Click
 
Driver.Close
Set Driver = Nothing
 
End Sub

さらに詳しいコードの書き方はこちらの記事で確認ください。

コードの書き方VBA×Selenium×ChromeでWebスクレイピング｜nameタグを使う