VBA在HTML元素上触发'pointerdown'事件

时间:2019-05-02 02:49:25

标签: excel vba web-scraping automation mouseevent

作为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

任何帮助将不胜感激。

0 个答案:

没有答案