excel - 使用 VBA 和 Selenium 自动化 Google Chrome

Question

我正在尝试使用 Selenium 插件从 Excel VBE 操作 Chrome。

• 我已将 Selenium 类型库包含在我的引用文献中。
• 我运行的是 Chrome v67。
• 我已经替换了 Selenium 中的 Chromedriver.exe 文件 与 Chrome v67 兼容的版本的基本目录(即 Chromedriver 版本 38)。

我的VBA代码:

Public Sub seleniumtutorial()
Dim bot As New WebDriver
'bot.AddArgument "--headless"
'bot.AddArgument "--disable-extensions"
bot.Start "chrome", "http://google.com"
bot.Get "/"
bot.TakeScreenshot.SaveAs (ActiveWorkbook.Path + "/screenshot.jpg")
bot.Quit
End Sub

我收到以下错误消息:

如果我包含这行代码，则不会出现错误消息，但我无法看到 Chrome 窗口:

bot.AddArgument "--headless"

如果我包含这行代码，就像类似问题的答案所建议的那样，它不能解决问题。

bot.AddArgument "--disable-extensions"

Answer 1

从 VBA 的角度来看，您使用了错误的驱动程序类来自动化 Chrome。您确认了 ChromeDriver 的位置，但在您的代码中完全忽略了它。

将以下行中的 WebDriver 替换为 ChromeDriver:Dim bot As New WebDriver

或使用:Dim bot As New Selenium.ChromeDriver

这是问题#1。问题#2 是您收到的错误消息。当您使用 WebDriver 时，您应该会收到运行时错误，而不是策略警告。

没有提供足够的信息来解决问题 #2，并且它可能与 VBA 没有任何关系。鉴于错误消息，您可能需要与管理员聊天。