excel vba重新打开excel文件而不保存

我有下面的代码，它正要重新打开当前的excel文件。

Sub CloseMe() Application.OnTime Now + TimeValue("00:00:02"), "OpenMe" ThisWorkbook.Close False End Sub Sub OpenMe() MsgBox "The file is reopened" End Sub 

我试图使它适用于activeworkbook，所以我改变

  ThisWorkbook.Close False 

至

  ActiveWorkbook.Close False 

但它最终closures了activeworkbook，但没有重新打开该文件，任何意见？ 非常抱歉，如果这个问题看起来很愚蠢。

Answer 1

尝试这个：

 Sub ReOpen() Application.DisplayAlerts = False Workbooks.Open ActiveWorkbook.Path & "\" & ActiveWorkbook.Name Application.DisplayAlerts = True End Sub 

Answer 2

我认为有一个思想的错误…当工作簿closures时，包含的VBA代码也closures，所以没有代码剩下要执行2秒后，没有任何代码的对象。

如果您的closures/重新打开逻辑位于要closures/重新打开的工作表之外，并且更具体地说，这个工作簿仅在closures/重新打开要重新打开的工作表之间保持打开的工作簿中才有效。