VBA Selenium循环未遵守超时限制陷入死循环，请求解决

原代码陷入死循环的核心问题有两个：

• 循环条件使用Or逻辑，导致超时后只要错误描述不为空，循环就会持续执行
• 超时触发提示后没有退出循环的语句，循环会一直重复

结合你需要15秒超时的需求，修复后的代码如下：

Dim tlimit As Integer
Dim tfirst As Double
tlimit = 15 ' 设定目标超时时间为15秒
tfirst = Timer

On Error Resume Next
Do
    ' 尝试定位并点击目标元素
    drive.FindElementByXPath("//*[contains(@class, 'p-button-label') and text() = 'Erase']").Click
    
    ' 无错误说明找到元素，终止循环并恢复错误处理
    If Err.Description = "" Then
        On Error GoTo 0
        Exit Do
    End If
    
    ' 检查是否超过超时限制
    If Timer - tfirst >= tlimit Then
        MsgBox "错误：超时未找到元素，" & Err.Description
        On Error GoTo 0
        Exit Do ' 超时后强制退出循环，避免死循环
    End If
    
    ' 清空错误状态，等待1秒后重试
    Err.Clear
    Application.Wait Now + TimeValue("00:00:01")
Loop

关键修改说明 #

• 改用Do...Loop无前置条件循环，确保第一次执行就能尝试查找元素
• 调整逻辑顺序：先判断是否成功找到元素，再检查超时，最后处理重试
• 超时判断后添加Exit Do，彻底终止循环
• 将tlimit修正为需求的15秒
• 每次重试前清空错误状态，避免残留的错误描述干扰下一次判断

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