как указать SendEvent в VBA IE автоматизации - PullRequest
Новая
       6

как указать SendEvent в VBA IE автоматизации

0 голосов
/ 24 марта 2020

Я пытаюсь ввести некоторые данные в поле поиска Qucik, а затем ввести по id = "quicksearchQSImage", должно появиться событие "find or quicksesarch". как заставить его выполнять только операцию Quicksearch на клике. Спасибо код для поля ввода, как показано ниже на сайте. 

<input type="image" id="quicksearchQSImage" aria-label="Find Number" title="Find Number" alt="Find  Number" role="button" onclick="sendEvent**('find', 'quicksearch', '')**" class="greybutton" src="qf_find.gif"

Ниже приведен мой код VBA. проблема в том, что если я набираю значение с клавиатуры и нажимаю на кнопку, запускается событие quicksearch, но когда я запускаю его через vba, запускается событие find. 

Set objPage = objIEBrowser.Document
Do While objIEBrowser.Busy
Loop
Application.Wait (Now + TimeValue("0:00:05"))
Set nameEditB = objPage.getElementByID("quicksearch")
nameEditB.Click
Do While objIEBrowser.Busy
Loop
Application.Wait (Now + TimeValue("0:00:10"))

nameEditB.Value = Range("A1").Value
Do While objIEBrowser.Busy
Loop
Application.Wait (Now + TimeValue("0:00:05"))
Set firstNum = objPage.getElementByID("quicksearchQSImage")
firstNum.Click
End Sub
...