OLEObject无法在Excel VBA中工作的方法

Question

任何有关其工作原理的想法（VBA，Excel 2007）：

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

但这不是：

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

我不记得以前是怎么解决这个问题的。现在它说对象不支持这个属性或方法（它是一个组合框）。

PS： 这很奇怪;我测试了一个在我记忆中运作良好的旧程序，现在它失败了，莫名其妙地。 它还包含这样的引用：

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

Answer 1

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

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