Sub 关闭文件()

Dim i As Integer
For i = Workbooks.Count To 1 Step -1  '从最后一个工作簿开始循环，每次减少1
    Workbooks(i).Close False  '关闭打开的工作簿，不保存内容
Next i

End Sub