vba - 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")