使用VBA访问activeX控件时出现运行时错误“438”

Question

我一直在网上搜索，似乎找不到我的问题的答案！

我在Excel2010中创建了一个使用ActiveX控件（特别是文本框和组合框）的电子表格。

我遇到过这样的问题：当我保存电子表格、关闭Excel并重新打开文件时，所有的ActiveX控件都不想合作。我一直收到运行时错误“438”无法获取OLEObject类的Object属性。我尝试通过多种方式访问OLEObject：（参见下面）

Sub ResetSheet()

   Sheets("CoverSheet").OLEObjects("TextBox1").Object.Value = "Date"
   Sheets("CoverSheet").OLEObjects(1).Object.Value = "Date"

End Sub

两行都会抛出上面的运行时错误....然而，类似这样的方法是没有问题的：

 Sheets("CoverSheet").OLEObjects(1).Delete

我到底错过了什么？！

Sheets("CoverSheet").OLEObjects("TextBox1").Object.Value = "Date"

Answer 1

您能否尝试将代码添加到VBA编辑器（而不是VBAProject）中的工作表“CoverSheet”中，看看是否在任何行中再次遇到此问题：

TextBox1.Text = "Date"
TextBox1.Value = "Date"

如果您仍然遇到同样的问题，请查看这篇文章，看看其中的解决方案是否有用：无法获取OLEObject类的Object属性-Excel Interop