Question

我正在使用VBA在Excel 2013中开发一个项目。我必须在Internet Explorer中选择列表框中的项目并转到另一个字段。我尝试了许多代码，但没有什么效果好。我发现了这种方式，但列表框不会改变值。

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")

助手子：

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

使用VBA选择列表框项Internet Explorer

1 个答案: