我有一个名为“日期”（对象名称是A_Dates）的工作表，需要在激活时进行计算（可能值得注意的是，这是在我的个人宏工作簿中）。我经常会打开工作簿，这些工作簿中有太多的计算，因此我不能进行自动计算。所以，我有自动计算设置为手动，并在工作表下面的代码：Worksheet_Activate上导致“自动化错误未指定错误”的原因是什么？

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窗体2.0 Object运行时
Microsoft HTML对象库
Microsoft Internet控制
Microsoft ActiveX数据对象2.8库
Microsoft ActiveX数据对象Recordset 2.8库

来源

2012-09-04 Farfromunique

如果评论说，线路输出和手动强制重新计算（使用[F9]）你收到一个错误？ – mwolfe02

不，我不知道。而且，所有的**似乎**都可以正确计算。 – Farfromunique

也许错误与运行任何VBA有关，不一定是'Calculate'方法。如果您尝试用'Debug.Print A_Dates.Name'替换'A_Dates.Calculate'会怎么样？这是否会产生错误？ – mwolfe02

我发现这个问题。我的一个表格对它有一个控制，显然停止了工作，这有一个连锁反应。

有问题的控制是“微软进度控制，6.0版”。我不知道为什么它停止工作，但删除表单（当然，所有的引用）解决了这个问题。

来源

2012-09-05 04:59:00 Farfromunique

每当我遇到这样的奇怪错误时，我所做的第一件事就是用http://www.appspro.com/Utilities/CodeCleaner.htm清理代码。这是一个免费的加载项，但你也可以手动完成。只需将代码从模块中复制到文本文件中（或右键单击并导出）即可。然后删除模块中的代码，编译并保存并重新输入代码。

当Excel编译“即时”时，它将创建p代码，然后将其编译为机器代码。有时，特别是在编辑繁重的情况下，p代码会被破坏。复制代码，删除代码并在Excel中强制复制以重新生成p代码。

我用这种方法解决了一些非常奇怪的行为。希望它也适用于你。

来源

2012-09-04 22:03:54

我们遇到了同样的问题，但与一捻 - 我们有几个人都使用相同的宏成功，但一个是具有“自动化错误”“未知错误”的问题。您的回答帮助我发现问题可能归因于“Microsoft ProgressBar控件”。（非常感谢）

但是，我没有注册并注册MSCOMCTL.OCX在用户的PC上，有问题，他又恢复了业务。我希望我知道是什么导致控制器的注册向南 - 这不是我第一次跟踪这个控制器的问题。

要注销并注册该控制：

使用的“升高的命令提示”（如管理员命令提示符运行），发出以下命令：

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

Regsvr32 c:\windows\SysWOW64\MSCOMCTL.OCX

注：使用/ u注销OCX

来源

2012-09-19 19:34:39

嗨，我正面临与我建造的刮刀同样的问题。它适用于74和86之间的循环，然后突然'CreateObject（“InternetExplorer.Application”）'失败。我试过你的解决方案，但没有帮助。任何其他线索（fyi，我使用我的代码访问Google专利） – SJDS

Worksheet_Activate上导致“自动化错误未指定错误”的原因是什么？

其他信息

回答

相关问题