vba - 是什么导致 Worksheet_Activate 出现 "Automation error Unspecified error"？

Question

我有一个名为“Dates”(对象名称为 A_Dates)的工作表，需要在激活时进行计算(可能值得注意的是，这在我的个人宏工作簿中)。我经常打开工作簿，其中有太多的计算，我无法进行自动计算。所以我将自动计算设置为手动，工作表中的以下代码:

Private Sub Worksheet_Activate()
   A_Dates.Calculate
End Sub

这在过去的 3 个月里日复一日地运作良好。昨天，它停止工作。它现在在声明行上抛出这个错误:

Microsoft Visual Basic
Automation error
Unspecified error
[OK] [Help]

我尝试使用以下方法更改我引用工作表的方式:

Sheets("Dates").Calculate

和

ActiveSheet.Calculate

无济于事。我还包括错误处理:

On Error Resume Next

这并不能阻止它。我什至做到了:

Private Sub Worksheet_Activate()
   On Error GoTo headache
   Sheets("Dates").Calculate
Exit Sub

headache:
   Exit Sub
End Sub

它仍然出现。我完全不知所措。帮助？

附加信息

我有以下引用资料，并在本工作簿的各种宏中使用了所有这些引用资料:

Visual Basic 应用程序

Microsoft Excel 12.0 对象库

OLE自动化

Microsoft Office 12.0 对象库

Microsoft 脚本运行时

Microsoft Forms 2.0 对象运行时

Microsoft HTML 对象库

Microsoft Internet 控件

Microsoft ActiveX 数据对象 2.8 库

Microsoft ActiveX 数据对象记录集 2.8 库

Answer 1

我们遇到了同样的问题，但有一个转折——我们有几个人都成功地使用了相同的宏，但有一个是“自动化错误”“未指定错误”问题。 The other answer helped me确定问题可能是由于“Microsoft ProgressBar Control”造成的。 (非常感谢)

但是我没有删除表单，而是在用户的 PC 上注销并注册了 MSCOMCTL.OCX，该用户出现问题，他又重新开始营业了。我希望我知道是什么导致控件的注册向南 - 这不是我第一次不得不追踪这个控件的问题。

要取消注册和注册控件:

使用“Elevated command prompt”(以管理员身份运行的命令提示符)，发出以下命令:

 Regsvr32 /u c:\windows\SysWOW64\MSCOMCTL.OCX

 Regsvr32 c:\windows\SysWOW64\MSCOMCTL.OCX

注意:/u 取消注册 ocx