使用VBA Selenium定位并点击元素失败求助

尝试定位页面底部蓝色高亮行的元素并执行点击操作，编写了以下VBA代码，但所有尝试均未成功：

• 第一个Element对象为空
• 第二个Element1对象非空但点击无效
• 怀疑页面存在Iframe等未知情况，已附上页面截图及HTML快照

代码如下：

On Error Resume Next
Set Element = GC.FindElementByXPath("//*a[@data-id='_VIEW--ALL_COMPLAINTS_VIEW_P']")
Set Element1 = GC.FindElementByXPath("//*/div/a[contains(@data-id,'_VIEW--ALL_COMPLAINTS_VIEW_P')]]")
test = Element1.Value
Element.Click
Element1.Click
Set Element3 = GC.FindElementByCss("a[data-id='_VIEW--OPEN_BY_CODE_P']")
Element3.Click
GC.FindElementById("_VIEW--OPEN_BY_CODE_P").Click

• 检查Iframe嵌套
  先确认目标元素是否在Iframe内，执行操作前切换到对应Iframe：

  ' 通过索引切换（索引从0开始，若有多个Iframe需调整）
  GC.SwitchToFrame 0
  ' 或通过Iframe的ID定位切换
  ' GC.SwitchToFrame GC.FindElementById("目标Iframe的ID")
  

  操作完成后记得切回主文档：

  GC.SwitchToDefaultContent
  

• 修正XPath语法错误
  第二个XPath多了一个闭合方括号，正确写法：

  Set Element1 = GC.FindElementByXPath("//div/a[contains(@data-id,'_VIEW--ALL_COMPLAINTS_VIEW_P')]")
  

  第一个XPath的//*a写法冗余，简化为：

  Set Element = GC.FindElementByXPath("//a[@data-id='_VIEW--ALL_COMPLAINTS_VIEW_P']")
  

• 确保元素加载完成
  加入等待逻辑，避免元素未加载就执行操作：

  ' 等待页面加载完成
  Do While GC.Busy Or GC.ReadyState <> 4
      DoEvents
  Loop
  
  ' 针对目标元素等待（最多等10秒）
  Dim waitSec As Integer
  waitSec = 10
  Do Until waitSec = 0 Or Not GC.FindElementByXPath("//a[@data-id='_VIEW--ALL_COMPLAINTS_VIEW_P']") Is Nothing
      waitSec = waitSec - 1
      Sleep 1000
      DoEvents
  Loop
  

• 换用JS触发点击
  如果直接Click方法无效，尝试用JavaScript模拟真实点击：

  Set Element = GC.FindElementByXPath("//a[@data-id='_VIEW--ALL_COMPLAINTS_VIEW_P']")
  Element.Focus
  GC.ExecuteScript("arguments[0].click();", Element)
  

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