Excel VBA：如何将通用控件对象转换为ComboBox对象？
我需要将一个通用的VBA表单控件对象转换成一个ComboBox对象，以便我可以添加项目到它。 通用对象不允许我插入项目到我现有的列表
Dim ctlCurrent As MSForms.Control For Each ctlCurrent In frmItemInput.Controls If TypeName(ctlCurrent) = "ComboBox" Then Dim lbCurrentComboBox As MSForms.ComboBox lbCurrentComboBox = ctlCurrent 'This is where the error occurs, when I try to convert one into another ' Adiciona os itens necessários lbCurrentComboBox.AddItem ("R") lbCurrentComboBox.AddItem ("D") End If Next ctlCurrent 我的问题是：我有很多combobox在我的forms，我需要为所有这些添加相同的选项。 所以我想这样做编程。
你可以通过使用SET来“投”一个VBA对象，例如：
SET lbCurrentComboBox = ctlCurrent
如果菲尔的答案没有工作尝试
SET lbCurrentComboBox = ctlCurrent.Object