小编Reu*_*loy的帖子

我有一个工作簿,当关闭由API计时器触发时,关闭Excel崩溃.

编辑:下面的链接中的工作簿只有计时器和退出模块,它具有相同的行为,所以它不是内容的问题.

https://www.dropbox.com/s/x0xdwgj5h34ctdk/Book1.xlsm?dl=0

工作簿关闭后几秒钟Excel崩溃.我试过关闭计时器,取消隐藏所有床单,卸载表格...所有对象都设置为Nothing.

我所做的只是Workbooks(ThisWorkbook.Name).Close SaveChanges:=True?? !!

从UserForm调用相同的子没有问题.工作簿在没有Excel崩溃的情况下关闭.

如何解决这个问题？

Sub ApplicationExit()
'    Call UnloadAllForms
'    DoEvents
'    Sleep 1000
'    Call StopCloseTimer
'DoEvents
'If Application.Workbooks.Count = 1 Then
'    Workbooks(ThisWorkbook.Name).Save
'    Application.Quit
'Else
    DoEvents
    Workbooks(ThisWorkbook.Name).Close SaveChanges:=True
'End If
End Sub

定时器触发的代码是;

Sub TimerCalled()

If CloseTimerValue = "" Then Call Reset_CloseTimerValue
DoEvents
If basTimers.CloseTimerValue <= Now() And Not Unlocked Then Call ApplicationExit

On Error Resume Next 'In case sheet is protected
ThisWorkbook.Sheets("JobIndex").Range("CloseCount").Value = Format(Now() - CloseTimerValue, "hh:m:s") …