VBA Excel 单击标签

【问题标题】：VBA Excel Click on a LabelVBA Excel 单击标签
【发布时间】：2016-04-25 16:47:13
【问题描述】：

我是 Excel VBA 的新手。我目前正在做 excel IE 自动化，我想点击网页上的标签。

HTML源代码为：

<td class = t19TabItem><a href="javascript:apex.submit('D_Price');">Compliance</a></td>

点击标签合规性的任何帮助。

我使用下面的代码，通过使用内部 html 找到了标签合规性，但它没有点击合规性选项卡。它会抛出错误，因为对象没有此属性。

set link=IE.document.getElementsByTagName("a")
if link.InnerHTML="compliance" and link.href="javascript:apex.submit('D_Price')" then
    click link
end if

如何点击合规标签？

【问题讨论】：

上述问题的html源代码合规性

标签： excel vba

【解决方案1】：

尝试以下参考代码

Microsoft HTML 对象库

微软互联网控制**

Sub test()
Dim oHTML_Element As IHTMLElement
Dim oBrowser As InternetExplorer
Dim ie As Variant
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "your web link" 'Your weblink goes here
While ie.readyState <> READYSTATE_COMPLETE And ie.readyState <> READYSTATE_LOADED
    DoEvents
Wend
Application.Wait (Now() + TimeValue("00:00:03"))
For Each oHTML_Element In ie.document.getElementsByTagName("a")
    If oHTML_Element.innerHTML = "compliance" Then
        oHTML_Element.Click
    End If
Next
End Sub

【讨论】：

非常感谢 karthick 的快速帮助 :-)。它正在工作。
那么请将其标记为解决方案（通过勾选标记）。以便其他开发人员也可以找到解决方案代码。
能否请您给我一些参考，了解如何选择在 excel vba 中声明变量/元素/对象的类型，因为我经常遇到错误“对象不支持此属性或方法”。例如，正如您在回答中提到的那样 Dim oHTML_Element as IHTMLElement 。