使用VBA Selenium点击联想韩国保修查询提交按钮失败求助

问题分析 #

你遇到的运行时错误11，核心原因有两点：

• 原XPath语法错误，条件判断的写法不符合规范，正确的文本匹配需用方括号包裹
• 未等待页面元素完全加载至可交互状态，直接执行点击操作导致元素未就绪

可行解决方案及代码修正 #

方案1：修正XPath并增加显式等待 #

显式等待能确保元素加载完成且可点击，避免页面渲染延迟导致的定位失败。

修正后的完整代码：

Private BR_wty As New Selenium.ChromeDriver

Sub ChromeExe(ByVal c As ChromeDriver, ByVal URL As String)
    c.Get URL
End Sub

Sub Scrape_WTYMY1() 'warranty   
    Dim URL As String, i As Integer
    URL = "https://datacentersupport.lenovo.com/us/ko/warrantylookup#/"
    Call ChromeExe(BR_wty, URL)
    
    Dim chd As Selenium.ChromeDriver    ' 直接复用已初始化的驱动，避免重复创建
    Set chd = BR_wty
    
    Application.ScreenUpdating = False
    
    ' 等待输入框加载完成后输入序列号
    chd.Wait 2000
    chd.FindElementByClass("button-placeholder__input").SendKeys "j30a7xlg"
    
    ' 显式等待提交按钮可点击，超时时间10秒
    With chd
        .WaitUntil (ExpectedConditions.ElementToBeClickable( _
            By.XPath("//button[text()='제출']"))), 10000
        .FindElementByXPath("//button[text()='제출']").Click
    End With
    
    Application.Wait Now() + TimeSerial(0, 0, 10)
    Application.ScreenUpdating = True
End Sub

方案2：使用修正后的CSS选择器定位 #

若偏好CSS选择器，可利用按钮的文本标识（部分Selenium版本支持）：

' 等待按钮可点击后执行点击
chd.WaitUntil (ExpectedConditions.ElementToBeClickable( _
    By.Css("button:contains('제출')"))), 10000
chd.FindElementByCss("button:contains('제출')").Click

注：若:contains伪类失效，直接换回XPath方案即可

关键注意事项 #

• 不要重复初始化ChromeDriver：原代码中新建驱动的操作会导致资源浪费，直接复用已有的BR_wty实例即可
• 优先用显式等待：比固定时长的Application.Wait更灵活，能在元素就绪时立即执行操作
• 验证定位准确性：可通过浏览器开发者工具（F12）测试XPath/CSS选择器是否能精准定位到目标按钮

内容的提问来源于stack exchange，提问作者tony2000