OLEObject的方法不在Excel VBA中工作

任何想法，为什么这个工程（VBA，Excel 2007）：

ThisWorkbook.Worksheets("Sheet1").OLEObjects(controlId).ListFillRange = "" 

但是这不是：

 ThisWorkbook.Worksheets("Sheet1").OLEObjects(controlId).AddItem ("xyz") 

我不记得以前我是如何解决这个问题的。 现在它说对象不支持这个属性或方法（这是一个combobox）。

PS：这很奇怪， 我testing了一个运行良好的旧程序，据我记忆，现在它失败了，莫名其妙。 它也包含这样的参考：

 MsgBox ThisWorkbook.Worksheets("Sheet1").toggleBtn.Caption 

Answer 1

您需要引用对象本身以使用AddItem属性。

 ThisWorkbook.Worksheets("Sheet1").OLEObjects(controlId).Object.AddItem ("xyz")