我是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
如何点击合规标签?
尝试使用下面的参考代码
Microsoft HTML对象库
Microsoft Internet控制**
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句