Выберите HTML Выпадающее окно Параметры Использование VBA

Question

Picture of Dropdown List Code

Мне нужно создать макрос, который выбирает вариант выпадающий из списка в изображении. Я попытался использовать приведенный ниже код, где NGR определяется как строка со значениями в списке.

With ie.Document 
Set dropOptions = .getElementsByTagName("select") 
For Each o In dropOptions.Options 
    If o.Value = NGR Then 
     o.Selected = True 
    Exit For 
End If 
Next o 
End With 

Я также попытался:

ie.Document.all.Item("ddlGrowerRegs").Value = NGR 

и

ie.Document.getelementbyid("_ct10_ContentPlaceHolder1_ddlGrowerRegs").Value = NGR 

Если кто-нибудь может сказать мне, где я буду неправильно или как выбрать значение выпадающий с помощью строки ЯГР это было бы прекрасно.

Спасибо

Answer 1

У меня была аналогичная проблема при попытке выбрать из выпадающего списка. Вероятно, есть событие изменения, связанное с выпадающим. Попробуйте это после изменения значения выпадающего списка.

ie.document.all.Item("_ct10_ContentPlaceHolder1_dd1GrowerRegs").Value = NRG 
Dim htmldoc as HTMLDocument 

Set ieEvent = htmldoc.createEvent("HTMLEvents") 

ieEvent.initEvent "change", False, True 
ie.document.all.Item("_ct10_ContentPlaceHolder1_dd1GrowerRegs").dispatchEvent ieEvent 

Если это не сработает, вы можете это сделать.

Ie.document.getElementByTagName ("option")(0).setAttribute ("selected") = "selected"