如何将ActiveX ComboBox引用为VBA中的对象

Question

我想以编程方式将项添加到ActiveX ComboBox。

如何引用ComboBox以对其执行.additem 我试过了：

Dim lstSubsB As ComboBox
Set lstSubsB = ws.ListObjects("lstSubs") ' - << Error occurs here

但它给出了“下标超出范围”错误。组合框被命名为'lstSubs'。

除了提供的解决方案外，我发现以下内容也有效。

 Set lstSubsB = Me.lstSubs
 With lstSubsB
    For x = arrLower To arrUpper
       lstSubs.AddItem arrSubs(x)
    Next x
End With

Answer 1

Dim objX As Object

Set objX = ws.OLEObjects("lstSubs")