Ссылка на объект из ThisWorkbook

Question

Мне нужно заполнить несколько комбинированных списков в листе Excel при загрузке.

У меня установлено событие Workbook_Open () в моей кодовой таблице ThisWorkbook в редакторе VBA.
Теперь, когда код отсутствует в моем листе кода Sheet1 в редакторе VBA, следующий код не работает:

ComboBox.AddItem "hulkSMAASH!"

Как я могу сослаться на этот комбинированный список из моей таблицы кодов ThisWorkbook в редакторе VBA?

Answer 1

Вы можете ссылаться на кодовое имя листа в любом месте, в том числе в модуле ThisWorkbook.

Sheet1.Combobox1.AddItem "hulkSMAASH!"

Вы также можете получить доступ к коллекции OLEObjects

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

Обратите внимание, что MySheet - это имя листа, а Sheet1 - это кодовое имя. Вам придется подстраиваться под ваши конкретные имена.