Vba для запуска события указателя на элемент HTML - PullRequest
1 голос
/ 02 мая 2019

Требуется помощь для запуска события указателя на элемент HTML в рамках проекта автоматизации веб-страницы в Excel vba.

Удалось успешно автоматизировать использование триггера mousedown, но недавно исходный код веб-страницы имеетбыл изменен, чтобы использовать 'pointerdown' для запуска вместо 'mousedown'.

Существующий код '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

Любая помощь будет принята с благодарностью.

...