Excel VBA操作IE点击网页Table内指定a标签/按钮的实现方案

需要基于网页的<table>、<tr>、<td>DOM结构定位并点击页面上的a标签或按钮，具体需求为：在网页展示的两份报表中，精准点击Request ID为「350-ageing replica」对应的第一条Ref编号 182931 的链接。
目前使用Excel VBA编写循环逻辑，尝试多种定位方法均未生效，相关页面参考截图如下：

• 截图1：
• 截图2：

现有已编写VBA代码 #

代码逻辑、技术术语均保持原样：

Sub VSV_Ageing_Download()

Dim IE As Object

Dim Button
Dim Button2
Dim Button3
Dim objShell
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next

Set IE = CreateObject("InternetExplorer.Application")
                        
IE.Top = 0
IE.Left = 0
IE.Width = 1000
IE.Height = 1050
IE.Visible = 1
IE.navigate "MY link"

Application.Wait Now + TimeValue("00:00:06")
Loop

IE.document.all.Item("username").Value = "xxxxxxxxxxx"
IE.document.all.Item("password").Value = "xxxxxxxxxxx"


Application.Wait Now + TimeValue("00:00:06")
Do While IE.Busy

Loop

For Each Button2 In IE.document.getElementsByTagName("input")
If Button2.Type = "submit" Then
 Button2.Click
 Exit For
 End If
 Next

 Application.Wait Now + TimeValue("00:00:06")
 Do While IE.Busy

 Loop

  For Each MYCELLS In Rng

  IE.document.all.Item("circleId").Value = "my data"
  IE.document.forms(4).submit

  For Each Button2 In IE.document.getElementsByTagName("input")
  If Button2.Value = "Go" Then
  Button2.Click
  Exit For
  End If
  Next


 Application.Wait Now + TimeValue("00:00:06")
 Do While IE.Busy

 Loop

 For Each Button2 In IE.document.getElementsByTagName("input")
 If Button2.Value = "Request Management" Then
 Button2.Click
 Exit For
 End If
 Next


 Application.Wait Now + TimeValue("00:00:06")
 Do While IE.Busy

 Loop


 For Each Button2 In IE.document.getElementsByTagName("input")
  If Button2.Value = "Monitor Request Status" Then
 Button2.Click
 Exit For
 End If
 Next

 Application.Wait Now + TimeValue("00:00:06")
 Do While IE.Busy
 Loop

 IE.document.all.Item("loginId").Value = "my id"
 IE.document.forms(5).submit

 Application.Wait Now + TimeValue("00:00:03")
  Do While IE.Busy

 Loop
     'i am stuck at below code kindly help on this
     For Each Button2 In IE.document.getElementsByTagName("a")
     If Button2.Title = "Click Here to Download the Report" Then
     Button2.Click
     Exit For
     End If
     Next

  Application.Wait Now + TimeValue("00:00:01")
  Do While IE.Busy

  Loop

   Next

   End Sub

当前卡点 #

代码已经完成IE对象创建、账号登录、页面导航、表单提交等前置操作，卡在目标下载链接定位点击环节：现有全局遍历a标签判断Title属性的逻辑，无法定位表格嵌套结构下的目标元素。

解决方案 #

原有逻辑的核心问题是全局遍历a标签没有限定查找范围，既容易匹配到其他无关的同名链接，也可能因为属性值和实际DOM不一致导致匹配失败。针对表格结构的元素定位，直接按行匹配对应Request ID后再找目标链接即可，替换原有卡住的遍历a标签的代码段为以下逻辑：

' 替换原有遍历a标签的代码段开始
Dim targetRow As Object, targetLink As Object
Dim reqId As String, refNo As String
reqId = "350-ageing replica"
refNo = "182931"
Set targetRow = Nothing

' 遍历所有表格行，匹配目标Request ID
For Each tRow In IE.document.getElementsByTagName("tr")
    If InStr(1, tRow.innerText, reqId, vbTextCompare) > 0 Then
        Set targetRow = tRow
        Exit For
    End If
Next

' 找到对应行后，仅在当前行范围内查找目标Ref编号链接
If Not targetRow Is Nothing Then
    For Each targetLink In targetRow.getElementsByTagName("a")
        If InStr(1, targetLink.innerText, refNo, vbTextCompare) > 0 Then
            targetLink.Click
            Exit For
        End If
    Next
End If
' 替换原有遍历a标签的代码段结束

补充优化点 #

• 上述代码使用innerText匹配文本内容，不需要依赖Title、class等容易变动的属性，适配表格结构的稳定性更高
• 原有固定时长等待的逻辑可以替换为判断IE页面加载状态的逻辑，减少因页面加载慢导致的元素找不到问题，等待逻辑可参考：

  Do While IE.Busy Or IE.readyState <> 4
      DoEvents
  Loop
  

• 调试阶段建议暂时注释掉代码开头的On Error Resume Next，方便直接抛出定位失败的具体错误，快速排查问题。

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