作为excel vba中的网页自动化项目的一部分,需要帮助触发html元素上的“ pointerdown”事件。
已经能够使用“ mousedown”触发器成功实现自动化,但是最近网页源代码已被修改为使用“ pointerdown”而不是“ mousedown”来触发。
现有的“鼠标按下”代码:
Set e1 = IE.Document.createEvent("MouseEvent")
e1.initMouseEvent "mousedown", True, True, 0, 1, 0, 0, 0, 0, True, False, False, False, 0, Null
ElementCol.Item(i).dispatchEvent e1
尝试了以下“ pointerdown”代码,但是excel在initPointerEvent行上抛出了“自动化错误”:
Set e1 = IE.Document.createEvent("PointerEvent")
e1.initPointerEvent "pointerdown", True, True, 0, 1, 0, 0, 0, 0, False, False, False, False, 0, Null , 0, 0, 0, 0, 0, 0, 0, 0, 0, "", 0, False
ElementCol.Item(i).dispatchEvent e1
任何帮助将不胜感激。