关闭所有打开的工作簿而不保存，然后打开另一个工作簿

Question

我正在寻找VBA代码来关闭所有打开的工作簿而不保存，然后打开另一个工作簿。

任何人都可以使用正确的VBA代码吗？

我现在有以下代码：

Private Sub Workbook_Open()
Dim WB As Workbook

For Each WB In Workbooks
    If Not (WB Is ActiveWorkbook) Then WB.Close
Next

End Sub

这个我没有试过喷气机。我尝试每天同时启动一个宏dat，并关闭所有工作簿。然后打开工作簿并更新数据。

Answer 1

我已经调整了WB.Close savechanges：= False到VBA代码并且它的工作非常完美。

由于

Answer 2

在我看来，使用宏并不是一个很好的方法。 看一下这个。 http://blog.contextures.com/archives/2013/04/25/close-all-files-in-excel-2013/

或者您可以使用cmd命令（如

）执行此操作

taskkill /IM excel.exe /F
start excel.exe

或制作批处理文件或vbscript。