关闭工作簿
[示例01]
Sub CloseWorkbook1()
Msgbox “不保存所作的改变而关闭本工作簿”
ActiveWorkbook.Close False
‘或ActiveWorkbook.Close SaveChanges:=False
‘或ActiveWorkbook.Saved=True
End sub
[示例02]
Sub CloseWorkbook2()
Msgbox “保存所作的改变并关闭本工作簿”
ActiveWorkbook.Close True
End sub
[示例-03]
Sub CloseWorkbook3()
Msgbox “关闭本工作簿。如果工作簿已发生变化，则弹出是否保存更改的对话框。”
ActiveWorkbook.Close True
End sub
[示例04] 关闭并保存所有工作簿
Sub CloseAllWorkbooks()
Dim Book As Workbook
For Each Book In Workbooks
If Book.Name<>ThisWorkbook.Name Then
Book.Close savechanges:=True
End If
Next Book
ThisWorkbook.Close savechanges:=True
End Sub
[示例05] 关闭工作簿并将它彻底删除
Sub KillMe()
With ThisWorkbook
.Saved = True
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close False
End With
End Sub
[示例06]关闭所有工作簿，若工作簿已改变则弹出是否保存变化的对话框
Sub closeAllWorkbook()
MsgBox "关闭当前所打开的所有工作簿"
Workbooks.Close
End Sub
