Edge浏览器Selenium VBA运行时错误'424'：对象要求问题求助

错误原因 #

你代码里IsElementPresent(By.XPath("xxx"))的写法不符合Selenium VBA语法规范，IsElementPresent方法不能直接接收By.XPath作为参数，这会导致对象引用错误，触发'424'报错。

修正方案 #

改用FindElementsByXPath获取元素集合，通过判断集合的Count属性是否大于0来确认元素是否存在；同时建议用显式等待替代固定时长的Wait，提升代码稳定性。

修正后的代码 #

Option Explicit ' 强制变量声明，避免潜在错误

Sub EdgeAutoTest1()
    Dim Obj As selenium.EdgeDriver
    Set Obj = New selenium.EdgeDriver
    
    ' 设置Edge浏览器选项
    Obj.SetCapability "ms:edgeOptions", "{""excludeSwitches"":[""enable-automation""]}"
    Obj.Start "edge", ""
    Obj.Get "https://***website*****"
    Obj.Window.Maximize
    
    ' 执行搜索操作
    Obj.FindElementByName("croreAccount").SendKeys "Search"
    Obj.FindElementByXPath("//*[@id='loadSuitFiledDataSearchAction']/div[1]/div[3]/div[4]/img").Click
    Obj.FindElementById("borrowerName").SendKeys ThisWorkbook.Sheets("Sheet1").Range("C5").Value
    Obj.FindElementByXPath("//*[@id='search-button']/ul/li[1]/div/input").Click
    
    ' 显式等待搜索结果加载完成（替代固定Wait）
    Obj.WaitUntil ElementIsPresent(By.XPath("//*[@id='three-icons']/ul/li[3]/a/div"), 20000)
    Obj.FindElementByXPath("//*[@id='three-icons']/ul/li[3]/a/div").Click
    
    ' 显式等待下载链接区域加载
    Obj.WaitUntil ElementIsPresent(By.XPath("//*[@id='downloadReport']"), 20000)
    
    ' 判断下载元素是否存在
    If Obj.FindElementsByXPath("//*[@id='downloadReport']/div").Count > 0 Then
        Obj.FindElementByXPath("//*[@id='downloadReport']/div").Click
    End If
    
    ' 调用指定宏
    Call EdgeAutoTest2
    
    ' 可选：关闭浏览器
    ' Obj.Quit
    ' Set Obj = Nothing
End Sub

关键修改说明 #

• 替换IsElementPresent的错误写法，用FindElementsByXPath返回的集合数量判断元素是否存在，这是Selenium VBA中判断元素存在的标准写法。
• 用Obj.WaitUntil显式等待替代固定时长的Obj.Wait，直到目标元素出现再执行后续操作，避免因网络或页面加载慢导致的元素找不到问题。
• 添加Option Explicit强制变量声明，提前发现未声明的变量错误，提升代码健壮性。

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