如何使用 Excel VBA 2010 中的消息泵？

Question

我有一个需要很长时间的 Excel 宏。当我让 Excel 无人看管时，它似乎会崩溃（我在任务栏中收到一条“无响应”消息），但如果我设置一个每五秒或十秒命中的断点，那就没问题了。问题是，我需要从断点处执行大约 25 万次（我们正在考虑大约 200 小时来执行这个野兽）

我猜测消息泵活动的缺乏正在与内核对抗，那么我该如何刷新消息队列呢？或者我完全找错了树？

顺便说一句，我对此很陌生，因此非常欢迎文档参考。

干杯， 盖伊

Answer 1

支持 200h 有点令人担忧的观点，但是您可以尝试 DoEvents 语句“放弃宏的执行，以便操作系统可以处理其他事件”。 （请注意，调用 DoEvents 会产生额外的时间损失）

Answer 2

我必须同意 0xA3，如果您有一个 excel 例程预计需要超过 200 小时才能运行，那么您要么以非常低效的方式设置它，要么使用了错误的方法这项工作的工具。

无论如何，您可以采取一些措施来优化日常工作。如果您不断向单个单元格写入值，这些将特别有用。

Sub MarathonCalc

    Application.EnableEvents = False
    Application.ScreenUpdating = False

    ' Code to decode human genome goes here

    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub

同样，如果您发布一些代码，也许我们可以帮助找出为什么需要这么长时间。

Answer 3

“没有响应”并不意味着 Excel 崩溃了，它只是意味着它实际上没有响应窗口消息。

除非这是一个问题，否则您无需担心。我很担心你的评论，你预计任务需要 200 小时（超过一周！）。在我看来，您没有使用正确的工具来完成这项工作。试着找出是什么花了这么长时间，并解释一下你实际上在做什么。然后我们就可以看看如何更好地解决这个任务。

Answer 4

前面的答案已经为您提供了“DoEvents”，这是解决您的问题的第一线方法。

然而……仔细观察正在发生的事情会引发一些令人担忧的问题。首先，Excel 的线程模型相当原始：只有一个进程（根据文档），内部或外部生成的事件、回调和消息不会创建新线程。一个进程，并且只有一个进程，其他一切都必须等到当前的 VBA 宏或电子表格计算运行完成。

实际上，有些事情可能会中断此操作：{esc} 和 {ctrl-break}（尽管可以暂时禁用它们），因此 Excel 中至少有一个其他线程一直在运行，并且您会期望操作系统允许闯入一个进程...不是吗？

丑陋的现实是，当宏或计算运行时，Excel 应用程序不允许外部事件和消息运行到“事件接收器”，除非您调用“DoEvents”，并且某些 Windows 消息（注意大小写）仍然不会予以处理。

如果未记录的数量的消息和外部事件仍然存在，应用程序将会崩溃。根据我自己的测试，我认为这个数字是50；有关于注册表设置的文档，但我没有链接到我认为不可靠的材料 - 我已经尝试了相关设置，发现它无效。

那么你会怎样呢？

首先，再次查看您的代码。 Application.EnableEvents = False 和 Application.ScreenUpdating = False 是有用的设置：下一步是查找对工作表上各个单元格的所有读取或写入操作，然后仅获取单元格数组 - 使用以下命令获取数组要快得多myVBAarray=Range.Value，在 VBA 中进行计算，并将 VBA 数组变体写回 Range.Value。

其次...您还看到断点施加的“等待”状态允许某些事情自行解决。这听起来像是一个异步运行的外部进程（数据库查询？）：导致 Excel 崩溃的消息或事件是否来自该进程？