Excel VBA для передачи значения в текстовое поле на веб-сайте

Question

Привет, я новичок в Excel для кодирования VBA, пытаюсь перемещаться по веб-сайту и выполнять некоторые действия на основе информации из Excel.Здесь я поражен передачей значений элементу ввода, который автоматически заполняет значение в следующем текстовом поле на основе значения, которое мы передали (например: если я передал почтовый индекс в поле назначения, тогда название города автоматически заполняется в следующем поле), я могудля передачи значений, но это не вызывает JS, который автоматически заполняет значение.

Код целевого поля на веб-странице

<input name="zipcode" class="inputBoxRequired" id="zipcode"     onkeypress="return isNumberKey(event)" onblur="getZipCity(this.value,'/ProviderPortal')" type="text" size="46" maxlength="5">

Код пробовал

Set Zip = ie_Doc.getElementById("zipcode")
 Zip.Value = Zip_Code 'Here value gets updated but associated js is not triggered
 ie_Doc.getElementById("zipcode").Focus

даже попытка события пожара

Zip.FireEvent ("onchange")

На веб-странице, упоминаемой как событие Onkeypress, я поискал решение, но не могу найти точное, поэтому, пожалуйста, помогите мне.

Спасибо за вашу поддержку

Answer 1

Я сталкивался с тем же сценарием для решения, проверенного этим сообщением, тогда как в моем случае у меня нет тега "onblur", поэтому я провел некоторый поиск и нашел решение.

Dim event_onChange As Object
Set event_onChange = ie_Doc.createEvent("HTMLEvents")
event_onChange.initEvent "keypress", True, False
Zip.dispatchEvent event_onChange

Этопоможет другим, кто сталкивается с той же проблемой.

Answer 2

Zip.FireEvent ("onkeypress")
Zip.FireEvent ("onblur")  '<== Apparently this did the trick

Это показанные события.