Html Excel VBA无法单击网页上的按钮

我用excel实现了很多internet explorer自动化，但这让我感到困惑

我有一个带有按钮的页面，上面有代码：-

<a class="button button-bg multi-search-add">add</a>

我也试过了

Dim objButtonAll As Object
Dim objButton As Object
Set objButtonAll = ie.document.getElementsByTagName("a")
For Each objButton In objButtonAll
If objButton.innerText = "add" Then
objButton.Click  
End If
Next

并尝试

Dim objButtonAll As Object
Dim objButton As Object
Dim objA As HTMLInputButtonElement

Set objButtonAll = ie.document.getElementsByTagName("a")
For Each objButton In objButtonAll
If objButton.innerText = "add" Then
objA=objButton 'I get an error here
objA.Click  
End If
Next

前两个代码可以识别该点，但objButton.click不起任何作用。第三个代码片段给出了一个错误，即未设置对象变量或with Block变量“

顺便说一句，这是页面中的第130个“a”元素，第129个“a”元素“订单状态”链接很容易点击

该网站的快照如下所示

另外，这部分代码似乎是用Javascript实现的，因为我在源HTML文件中找不到这个按钮

有什么想法吗

---

PS.Sendkeys在这里工作。。。大约50%的时间。

是否有相关的javascript事件？

Dim objButtonAll As Object
Dim objButton As Object
Dim objA As HTMLInputButtonElement

Set objButtonAll = ie.document.getElementsByTagName("a")
For Each objButton In objButtonAll
If objButton.innerText = "add" Then
objA=objButton 'I get an error here
objA.Click  
End If
Next