Question

我在工作表中有一个组合框。执行子例程cmdUpdateDropDowns()后，弹出错误消息“需要对象”运行时错误“424”。这发生在第5行（cmbKeyMetrics.Clear）。我不知道如何在工作表中定义组合框。我将范围命名为cmbKeyMetrics

Public Sub cmdUpdateDropDowns()

    strSQL = "Select Distinct [Key Metrics] From [data$] Order by [Key Metrics]"
    closeRS
    OpenDB
    cmbKeyMetrics.Clear

    rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
    If rs.RecordCount > 0 Then
        Do While Not rs.EOF
            cmbKeyMetrics.AddItem rs.Fields(0)
            rs.MoveNext
        Loop
    Else
        MsgBox "No key metrics available.", vbCritical + vbOKOnly
        Exit Sub
    End If

Answer 1

我认为命名范围必须看起来像

Range("cmbKeyMetrics").clear

Answer 2

如果要清除组合框，则需要添加工作表参考。 Worksheets("NameOfYourWorksheet").cmbKeyMetrics.Clear

请参阅SO-VBA-Excel How to clear ComboBox Items

上的相关问题

运行时错误'424'：对象需要vba

2 个答案: