我需要一些关于我的vba excel代码的帮助:
Set ieDoc = Nothing
Set ieDoc = ieApp.Document
For Each Anchor In ieDoc.getElementsByTagName("div")
If InStr(Anchor.outerHTML, "CategoryIDName-popup") > 0 Then
Anchor.Focus
SendKeys "{DOWN}"
SendKeys "{ENTER}"
Anchor.Click
Anchor.FireEvent "ondblclick", 1, 2
Exit For
End If
Next Anchor
我已经尝试了sendkey,click,甚至ondblclick,但都不起作用。下面是html代码:
< DIV =CategoryIDName-popup class="input-group-addon“tabIndex=1 jQuery111308417279745872946="287"> < /DIV>
任何帮助,真的很感谢。
发布于 2017-05-24 00:07:43
试试这个:
ieDoc.getElementById("CategoryIDName-popup").FireEvent "onmouseover"
ieDoc.getElementById("CategoryIDName-popup").FireEvent "onmousedown"
ieDoc.getElementById("CategoryIDName-popup").FireEvent "onmouseup"
https://stackoverflow.com/questions/41800507
复制相似问题