VBA 清除 ActiveX 组合框列表

Question

如何使用 VBA 清除 Excel ActiveX ComboBox 列表。我预计这段代码会起作用：

Sheet1.OLEObjects(1).Clear

但它提高了

runtime error object doesn't support this property or method.

我很困惑，因为这个有效：

Sheet1.OLEObjects(1).Name

返回名称 TempCombo。

我尝试这个还是失败了:

Sheet1.TempCombo.Clear

它returns错误：

Runtime error Unspecified error.

我还应该检查什么？

Answer 1

如果您想清除 ActiveX ComboBox 列表，您可以尝试这样的操作...

Sheet1.OLEObjects(1).ListFillRange = ""

或者更准确地说是这个...

If TypeName(Sheet1.OLEObjects(1).Object) = "ComboBox" Then
    Sheet1.OLEObjects(1).ListFillRange = ""
End If

Answer 2

如果组合框有名称，您可以直接引用名称。喜欢

With mySheet
    .cbMyComboBox.ListFillRange = vbNullString
End with

VBA clear ActiveX combobox list