vba - "ThisWorkbook.Close"导致excel崩溃

Question

我有大量的 Excel 文件，它们的工作方式几乎像一个程序，并且它们在多台计算机上运行(具有不同版本的 Windows)，并且最近我有这个坏 问题，当用户按下我的关闭按钮(实际上是我与宏关联的图片)时，代码调用:

ThisWorkbook.Close savechanges:=True

这会导致 4 台受支持的计算机中的 2 台无法抓取 EXCEL(Windows XP = 正常，Windows 10 = 正常，1 其它不好，Windows 8 = 不好)。

我已将事件与这行特定的代码隔离开来(仅使用关闭按钮制作了一张 excel 文件，但它仍然崩溃)我注意到，如果 Excel 文件不是唯一打开的文件，有时它不会崩溃(也许问题在于关闭 Excel 本身)

我所做的是将这两个语句分开，因此如果(当)它崩溃时它已经保存了:

ThisWorkbook.Save
ThisWorkbook.Close

有人可以照亮一些吗？我真的迷路了。我尝试了所有我能想到的替代方案(activeworkbook...)

Tl;dr: “ThisWorkbook.Close”导致 Excel 崩溃

Answer 1

这是 Microsoft Excel 中的一个标准错误。不确定微软是否有任何修复。不过，有一些解决方法可以解决这个问题。

当“关闭”事件由点击事件触发但与“选择更改”等其他事件一起正常工作时，会出现此问题。要解决这个问题，您可以尝试以下方法:

在按钮的点击事件中添加以下代码:

Private Sub CloseButton_Click()
    Cancel = True
    Application.OnTime Now, "Close_Xls"
End Sub

在标准模块中，添加以下代码

Sub Close_Xls()
   ThisWorkbook.Close  savechanges:=True
End Sub

这对我有用。如果有帮助请告诉我