Выберите элемент списка Internet Explorer с VBA

Question

Я разрабатываю проект в Excel 2013 с VBA. Я должен выбрать в Internet Explorer элемент в списке и перейти в другое поле. Я пробовал много кодов alreadt, но ничего не работает. Я нашел этот путь, но список не меняет значение.

Set kkk = .document.getElementById("ctl00_ContentBody_ASPxCallbackPanel1_pc_EstipulanteEditar_ASPxRoundPanel2_cmb_SituacaoEdit_DDD_L_LBT").getElementsByClassName("dxeListBoxItem") 

For Each el In kkk 
    If el.innertext = "Ativo" Then 
     el.Click 
     Exit For 
    End If 
Next el 

Мне действительно нужно изменить элемент в списке, прежде чем перейти к следующему полю.

Спасибо

Answer 1

Set kkk = .document.getElementById("ctl00_ContentBody_ASPxCallbackPanel1_pc_EstipulanteEditar_ASPxRoundPanel2_cmb_SituacaoEdit_DDD_L_LBT").getElementsByClassName("dxeListBoxItem") 

SetSelectByText(kkk, "Ativo") 

Helper суб:

Sub SetSelectByText(sel, txt) 
Dim l As Long, x As Long 
    l = sel.Options.Length 
    For x = 0 To l - 1 
     If sel.Options(x).Text = txt Then 
      sel.selectedIndex = x 
      Exit For 
     End If 
    Next x 
End Sub