运行时错误“424”:Object required vba
我在工作表中有一个combobox。 执行子程序cmdUpdateDropDowns()
,会popup错误消息,提示“对象需要”运行时错误“424”。 这发生在第5行( cmbKeyMetrics.Clear
)。 我不知道如何在工作表中定义combobox。 我已经命名了它的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
我认为命名的范围必须看起来像
Range("cmbKeyMetrics").clear
如果你想清除你的combobox,你需要添加一个工作表引用。 Worksheets("NameOfYourWorksheet").cmbKeyMetrics.Clear
在SO-VBA-Excel上查看相关问题如何清除combobox项目