如何实例化命名的 Excel.Application 对象以允许在意外情况发生后进行宏后垃圾回收

Question

我是一个相对 VBA 新手，正在设计一个相当复杂的宏，它可以运行 10 秒到 10 分钟之间的任何时间，它的大部分工作是在由 Dim appDatabaseInstance = New Excel.Application 创建的另一个不可见的 Excel 实例中完成的。 。在代码执行过程中会使用许多函数和子例程，虽然我已尽力确保每当出现任何半可预测的错误时都会调用 appDatabaseInstance.Quit，但我无法控制一件事——用户。

具体来说，如果用户确定程序已崩溃并保留转义，VBA 将中断执行，并且由于中断发生的方式，我的垃圾收集例程（我认为）最终都不会发生。

因此，如果我能够以某种可预测的方式命名我创建的实例，然后在创建新实例之前尝试找到现有实例并对其进行适当处理，我会更高兴。这样，即使不幸的应用程序实例保持打开状态，只要用户尝试涉及该程序的其他任何操作，它就会立即关闭（如果他们不这样做，那么一个实例不太可能在上下文中引起太多麻烦）。

有人有什么建议吗？

Answer 1

您可以使用 Application 对象的 EnableCancelKey 属性来确定当用户中断您的代码时会发生什么

我建议您查看 迪克博客上关于 EnableCancelKey 的这篇文章。

总之，EnableCancelKey 具有三种可能的设置：

• xlDisable – 防止用户中断代码
• xlInterrupt – 正常操作。将显示调试器，并且代码在中断时所在的行处处于调试模式。
• xlErrorHandler – 引发错误号 18 并像任何其他错误一样做出反应。如果您设置了错误处理，则会调用它。

Answer 2

我以前也曾在 VBA 中做过类似的事情。 follow 方法将关闭除当前正在运行代码的进程之外的所有其他 excel 进程。 请记住在尝试运行此代码之前保存您的内容！

Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Sub CloseOtherInstances()

  Dim currentId As Long
  Dim wmiObj As Object
  Dim process As Object
  Dim processes As Object

  currentId = GetCurrentProcessId

  Set wmiObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

  Set processes = wmiObj.ExecQuery("select * from win32_process where name ='EXCEL.exe'")

  For Each process In processes
    If process.ProcessId <> currentId Then process.Terminate
  Next process

End Sub