windows - 如何从 Excel/VBA 调用长时间运行的外部程序？

Question

从 excel 运行外部程序的最佳方式是什么。它可能会运行几分钟。关于如何做到这一点的最佳实践是什么。理想情况下，

1. 让用户知道流程正在执行的模型对话框。
2. 如果可执行文件失败，用户应该会收到通知。
3. 应该强制执行超时。
4. 对话框上应该有一个取消按钮。

但欢迎任何最佳实践。我对调用 .dll 或 .exe 的解决方案很感兴趣。最好是适用于 Excel '03 或更早版本的东西，但我也很乐意听到迁移到更高版本的理由。

Answer 1

您应该查看这两篇 Microsoft 知识库文章

How to launch a Win32 Application from Visual Basic和

How To Use a 32-Bit Application to Determine When a Shelled Process Ends

它们都可以快速为您提供启动流程的框架，然后检查其完成情况。每篇知识库文章都有一些可能相关的附加引用。

后一篇知识库文章假定您要等待无限长的时间让您的 shell 进程结束。

您可以修改 ret& = WaitForSingleObject(proc.hProcess, INFINITE) 函数调用以在以毫秒为单位的有限时间后返回——将 INFINITE 替换为代表毫秒的正值并将整个过程包装在一个 Do While 循环中。返回值告诉您进程是否完成或计时器用完。如果进程结束，返回值将为零。

如果返回值非零，则进程仍在运行，但控制权已交还给您的应用程序。在此期间，当您对应用程序拥有积极的控制权时，您可以决定是否更新某种 UI 状态、检查取消等。或者您可以再次循环并等待更多时间。

如果您要脱壳的程序是您编写的程序，甚至还有其他选项。您可以连接到它的其中一个窗口，让程序发布您可以附加并用作状态反馈的消息。如果您需要考虑，最好将其留作单独的项目。

您可以使用流程结构从被调用的流程中获取返回值。您的流程确实需要返回一个值才能使它有用。

我对这种需求的一般方法是:

1. 在流程开始时为用户提供一个带有取消按钮的非模态状态对话框，单击该按钮后将设置一个标志以供稍后检查。向用户提供任何状态很可能是不可能的，因此给他们一个耗时或其中一个 GIF 动画可能有助于管理期望。
2. 开始流程
3. 等待进程完成，允许每 500 毫秒进行一次取消检查
4. 如果过程完成，关闭对话框并继续。
5. 如果进程未完成，请查看用户是否点击取消，如果是，则向进程窗口发送关闭消息。这可能不起作用，并且可能需要终止该过程——执行此操作时要小心。如果无法正常关闭，最好的办法可能是放弃该过程。您还可以在此时检查超时并尝试采用与用户点击取消相同的路径。

希望对您有所帮助，比尔。