VBA网页抓取：定位特定锚点标签并触发点击加载数据

问题修正：标签识别逻辑错误 #

你之前的遍历代码判断的是aTag.href，但目标<a href="">Rigs</a>的href属性为空，正确的判断应该是检查标签的文本内容，而非href。修正后的遍历代码如下：

Dim aTag As Object
Dim buttonElement As Object

For Each aTag In IE.document.getElementsByTagName("a")
    ' 匹配标签文本为"Rigs"，Trim避免空格干扰
    If Trim(aTag.innerText) = "Rigs" Then
        Set buttonElement = aTag
        Exit For
    End If
Next aTag

触发点击的正确方式 #

找到目标标签后，直接调用.click方法即可触发点击。但要注意两点：

1. 必须确认元素已找到（避免空对象报错）；
2. 点击后需要等待页面动态加载完成，否则后续抓取会找不到数据。

完整点击逻辑代码：

If Not buttonElement Is Nothing Then
    buttonElement.Click
    ' 等待浏览器加载完成
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    ' 这里可以继续处理加载后的表格数据
Else
    MsgBox "未找到目标标签"
End If

特殊情况处理：直接.click无效时 #

如果网站的标签点击绑定了JavaScript事件（比如onclick），直接调用.click可能无效，可尝试以下两种替代方案：

方案1：触发JavaScript点击事件

IE.document.parentWindow.execScript "arguments[0].click();", "javascript", buttonElement

方案2：使用FireEvent触发onclick

buttonElement.FireEvent "onclick"

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