エクセルのスクレイピングでエラー

質問

エクセルVBAでスクレイピングをしたいのですが、エラーが出てしまいます。わかる方がいましたらご教授下さい。

■環境
Windows10(64bit)

■インストールしたドライバ類
SeleniumBasic-2.0.9.0.exe
ChromeDriver 91.0.4472.19
chromedriver_win32.zip

■チェックを入れた参照設定
Visual Basic For Application
Microsoft Excel 16.0 Object Library
OLE Automation
Microsoft Office 16.0 Object Library
Microsoft Internet Control
Microsoft HTML Object Library
Selenium Type Librrary

■プロシージャ
Sub test()
　　Dim Driver As New Selenium.WebDriver
Driver.Start "chrome", "https://www.yahoo.co.jp/"
Driver.Get "/"
Driver.Close
Set Driver = Nothing
End Sub

■エラー内容
3行目「Driver.Start "chrome", "https://www.yahoo.co.jp/"」の所で
「実行時エラー33」が表示される

回答No.2

heisukewada · ベストアンサー

試しにコピペで動かしてみると、
Yahoo!　の画面が表示されてすぐに消えました。
エラーは出ません。

ChromeDriver 91.0.4472.19で取得した
chromedriver_win32.zip を解答してできる
chromedriver.exe を　%LOCALAPPDATA%\SeleniumBasic　フォルダの中で置き換えていますか？
SeleniumBasicフォルダの中のchromdriver.exeが最新でないとエラー33が返るのだと思います。

お礼

全てのインストールと参照設定をやり直したところ、正常に動きました。ドライバのどれかが古いものだったのか…とにかく解決しました。ありがとうございました！

回答No.1

kkkkkm

https://fu-tara.com/easy_scraping_with_excel_vba_and_seleniumbasic/

「実行時エラー33」でこのようなサイトがありました。
また、URLを記載しているところが上記のサイトのコードと違うみたいですがどうなんでしょう。

補足

ご説明ありがとうございます。ご指定のURLを見てみましたが、最初の説明に記載の通り、インストールしたドライバ類、参照設定の範囲の記載内容でした。

またステートメントの記載ですが、書き方の違いだけで処理としては同じものです。念のため、こちらも実行してみましたが、同じ場所で同じエラーが発生しているので解決に至りませんでした。