从ThisWorkbook引用对象

Question

我需要在加载Excel表格时填充几个组合框。

我在我的VBA编辑器中的ThisWorkbook代码表上设置了Workbook_Open（）事件。
既然代码不在我的VBA编辑器的Sheet1代码表中，则以下代码不起作用：

ComboBox.AddItem "hulkSMAASH!"

如何从我的VBA编辑器中的ThisWorkbook代码表中引用此组合框？

Answer 1

您可以从任何地方参考工作表的代号，包括ThisWorkbook模块。

Sheet1.Combobox1.AddItem "hulkSMAASH!"

您还可以访问OLEObjects集合

Me.Sheets("MySheet").OLEObjects("Combobox1").Object.AddItem "hulkSMAASH!"

请注意，MySheet是工作表的名称，Sheet1是CodeName。您必须根据您的特定名称进行调整。