CSS选择器是按钮[类型=“提交”][标签索引=“0”]〉svg

这对我很有效。。

Option Explicit

Sub Test()
    Dim chr As ChromeDriver
    Dim mykeyword As String
    Set chr = New Selenium.ChromeDriver
    Call chr.Start("edge")
    chr.Get ("https://www.redfin.com")
    mykeyword = Sheet1.Cells(2, 1).Value
    chr.FindElementByName("searchInputBox").SendKeys mykeyword
    chr.Wait 1000
    chr.FindElementByCss("button[type='submit'][tabindex='0'] > svg").Click
    chr.Wait 10000
    chr.Quit
End Sub