Двойной щелчок по элементу HTML в Excel VBA

Я пытаюсь узнать, как заставить Excel VBA дважды щелкнуть элемент HTML

Я занимаюсь веб-страницей w3: https://www.w3schools.com/jsref/tryit.asp?filename=tryjsref_ondblclick

Мой код VBA:

Sub double_click_macro() Dim IE As New SHDocVw.InternetExplorer Dim HTMLdoc As MSHTML.HTMLDocument Dim HTMLinput As MSHTML.IHTMLElement IE.Visible = True IE.navigate "https://www.w3schools.com/jsref/tryit.asp?filename=tryjsref_ondblclick" '1) navigate to w3 website 'wait here a few seconds while the browser is busy Do While IE.readyState <> READYSTATE_COMPLETE Loop Set HTMLdoc = IE.document Set HTMLinput = HTMLdoc.getElementsByTagName("p")(0) 'select the paragraph which changes when double clicked HTMLinput.Click HTMLinput.FireEvent "ondblclick", 1, 2 Do While IE.readyState <> READYSTATE_COMPLETE Loop 

К сожалению, он не работает. Я основывал этот код на ответе переполнения стека:

как дважды щелкнуть веб-объект в VBA

Может ли кто-нибудь помочь мне исправить мой код, чтобы он дважды щелкнул элемент html? спасибо

Изменить: 3 других способа, которые не удались

1) нажмите, задержка приложения, затем нажмите еще раз:

 HTMLinput.click Application.Wait (Now + TimeValue("0:00:02")) HTMLinput.click 

2) Запустите имя функции javascript:

 IE.document.all.Item Call IE.document.parentWindow.execScript("myFunction()", "JavaScript") 

3) событие пожара ondblclick:

 IE.document.getElementsByTagName("p").Item(0).FireEvent ("ondblclick") 

Interesting Posts

Отслеживать зависимости задач в Excel

У меня есть программа макросов, которая разбивает файл и защищает лист, но я не могу установить автофильтр и сортировать в отдельных книгах

Excel Macro – создание следующих двух ячеек пустым, если ячейка имеет определенное значение

выбор первого колокола

Добавление гиперссылок на несколько ячеек, распространяемых по листу

Excel Macro – повторите процесс

Условное форматирование для ячейки, содержащей текст (не номер)

сделать несколько ячеек доступными для редактирования и несколько клеток, которые будут защищены в excel

Если statment в Excel – MD Access DB

Как узнать, имеет ли ячейка ошибку в формуле в C #

Сравнение пар клеток excel в столбце для совпадений или различий в другом столбце

VBA Excel Вставить «пароль» в Popup box

Скрыть вкладки надстроек из ленты MS Office (например, вкладка PowerPivot)

Запись массива в диапазон. Только получение первого значения массива

PasteSpecial причиняет макрос терпеть неудачу. Почему?

Давайте будем гением компьютера.