“ThisWorkbook.Close”导致excel崩溃

问题描述：

我有一个excel文件的大集合，几乎像一个程序一样工作，并且它们运行在多台计算机上（具有不同版本的windows），并且从最近我有这个坏问题，当用户按下我的关闭按钮（其实我有一个宏关联的图片），用代码调用：“ThisWorkbook.Close”导致excel崩溃

ThisWorkbook.Close savechanges:=True

它使4台支持电脑crach EXCEL的2 （Windows XP =确定，Windows 10 =确定1坏其他，Windows 8 =坏）。

我已分离出入射到这个代码特定的行（由1片excel文件只需关闭按钮，并且它仍然崩溃）我注意到，如果Excel文件不是只有一个开放的，有时它不会崩溃（也许问题与收盘擅长本身）

我所做的是separeted 2条语句，所以如果（当）它崩溃了，它已经保存：

ThisWorkbook.Save 
ThisWorkbook.Close

任何人都可以点亮一些灯光吗？我真的迷失了。我尝试了所有我能想到的关闭方案（activeworkbook ...）

铊;博士：“ThisWorkbook.Close”导致Excel崩溃

答

这是在Microsoft Excel标准错误。不确定微软是否有任何修复。但是，有解决方法可以解决此问题。

从“点击”事件触发“关闭”事件但在“选择更改”等其他事件时正常工作时会发生此问题。为了解决这个问题，你可以试试这个：

在按钮的Click事件添加以下代码：

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

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

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

这个对我有用。让我知道它是否有帮助