VBA Selenium元素点击不稳定，如何实现循环直至点击成功？

可以通过循环+错误捕获的方式实现点击操作的重试，直到成功或达到设定的最大重试次数，避免无限循环导致程序异常。以下是具体实现代码：

Dim maxRetries As Integer
Dim retryCount As Integer
maxRetries = 5 ' 自定义最大重试次数，按需调整
retryCount = 0

With MyBrowser
    Do While retryCount < maxRetries
        On Error Resume Next ' 开启错误捕获，忽略点击失败的异常
        .FindElementByXPath("//div[text()='" & cl.Value & "']", timeout).Click
        
        If Err.Number = 0 Then
            ' 点击成功，退出循环
            Exit Do
        Else
            ' 点击失败，计数+1，等待后重试
            retryCount = retryCount + 1
            .Wait 1000 ' 每次重试前等待1秒，可根据页面加载速度调整
            Err.Clear ' 清除错误状态，避免影响下一次判断
        End If
        On Error GoTo 0 ' 关闭错误捕获，恢复正常错误处理
    Loop
End With

' 可选：判断最终是否成功
If retryCount >= maxRetries Then
    MsgBox "点击操作经过" & maxRetries & "次重试后仍失败，请检查元素定位或页面状态"
End If

补充说明： #

• 一定要设置maxRetries：防止因元素永久不可点击导致程序无限循环
• 优先用显式等待替代固定等待：如果你的Selenium版本支持，建议使用WaitUntilElementIsClickable方法，比固定时间等待更精准，比如：

  .WaitUntilElementIsClickable(By.XPath("//div[text()='" & cl.Value & "']"), timeout)
  .FindElementByXPath("//div[text()='" & cl.Value & "']").Click
  

• 检查XPath定位准确性：有时候元素文本包含空格、换行或隐藏字符，可优化XPath，比如用normalize-space()处理文本：

  "//div[normalize-space(text())='" & cl.Value & "']"
  

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