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

时间:2016-04-27 05:21:34

标签: html excel vba internet-explorer buttonclick

我用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.className = "button button-bg multi-search-add" Then
objButton.Click  
End If
Next

我也试过

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不执行任何操作。第三个代码片段给出错误,&#34;对象变量或块变量未设置&#34;

这是第130个&#34; a&#34;页面中的元素,第129个&#34; a&#34;元素&#34;订单状态&#34;链接很容易点击。

网站的快照如下。

enter image description here

此外,似乎这部分代码是在Javascript中实现的,因为我无法在源HTML文件中找到此按钮。

任何想法?

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

0 个答案:

没有答案