如何在Excel中使用Selenium应用SendKeys Keys.Enter(或Keys.Return)?

Question

我正在整理一个词汇表，并整理一个宏以从 vocabulary.com 中提取信息。搜索没有按钮，所以我必须使用 Enter 键，但Keys.Enter不起作用。

该宏仍然有效，因为您不必按 Enter 键即可显示您在搜索字段中键入时弹出的最顶部自动完成结果的定义页面。

问题是，并非在每种情况下都是我正在寻找的最建议的结果。我需要让输入击键才能使此宏 100% 有用。

Sub VocabularyWebScraper()
'Application.ScreenUpdating = False
Dim Driver As New Selenium.ChromeDriver
Dim Keys As Selenium.Keys
Dim count As Long
Sheets("Vocabulary.com Scraping").Activate
Set Driver = CreateObject("Selenium.ChromeDriver")
Set Keys = CreateObject("Selenium.Keys")
count = 1
While (Len(Range("A" & count)) > 0)

Driver.Get "https://www.vocabulary.com/dictionary/"
Driver.FindElementById("search").SendKeys Range("A" & count) + Keys.Enter

Driver.Wait 1000

On Error Resume Next
Range("B" & count) = Driver.FindElementByClass("short").Text
Range("C" & count) = Driver.FindElementByClass("long").Text

count = count + 1
Wend
Driver.Quit
'Application.ScreenUpdating = True
End Sub

Answer 1

我无法让回车键工作，但以防万一其他人想从这里提取定义 Vocabularly.com 这就是有效的。我最终只是点击了我正在寻找的特定单词的按钮。工作完美。

Sub VocabularyWebScraper()
Application.ScreenUpdating = False
Dim Driver As New Selenium.ChromeDriver
Dim count As Long
Dim word As String
Sheets("Vocab Web Scraping").Activate
Set Driver = CreateObject("Selenium.ChromeDriver")
count = 1
While (Len(Range("A" & count)) > 0)

word = Range("A" & count)
Driver.Get "https://www.vocabulary.com/dictionary/"
Driver.FindElementById("search").SendKeys word
Driver.Wait 1000
Driver.FindElementByCss("li[word='" + word + "']").Click
Driver.Wait 2000

On Error Resume Next
Range("B" & count) = Driver.FindElementByClass("short").Text
Range("C" & count) = Driver.FindElementByClass("long").Text

count = count + 1
Wend
Driver.Quit
Application.ScreenUpdating = True

结束子