请教,<em>Excel</em> <em>vba</em>关闭问题-e

用2007试了下，原来没有宏代码的工作簿。百

如果代码中写的内容没有包含sub 或者function的话，关闭工作簿再打开好像是度会清空。

只要其中有任一段sub  或function就能正常保知存了，但如果把sub或function都删掉，还是会被清空。

xlsm也一样道，默认储存位置好像在我的文档。

workbooks(2).Close
改成：
workbooks("aa.xls").Close
要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法：

关闭活动工作簿，如果工作簿有更改，提示是否保存：
Sub CloseWorkbook()
ActiveWorkbook.Close
End Sub

如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：
Sub ClostAndSaveWorkbook()
ActiveWorkbook.Close Savechanges:=True
End Sub
将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。
关闭所有打开e79fa5e98193e59b9ee7ad94363的工作簿，并提示是否保存：
Sub CloseAllWorkbooks()
On Error Resume Next
Workbooks.Close
End Sub
退出Excel，并提示对有更改的工作簿进行保存：
Sub QuitExcel()
Application.Quit
End Sub
保存活动工作簿并退出Excel：
Sub SaveActiveWorkAndQuit()
ActiveWorkbook.Save
Application.Quit
End Sub

下面的代码在退出Excel时都不会提示是否保存工作簿。
保存所有打开的工作簿并退出Excel：
Sub SaveAllAndQuit()
For Each wbk In Workbooks
wbk.Save
Next
Application.Quit
End Sub
退出Excel，所有的改动都不保存：
Sub QutiAndNoAlerts()
Application.DisplayAlerts = False
Application.Quit
End Sub

关闭excel使用copyworkbook.close方法百

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveWorkbook.Save '保存
'这里需要用度workbook.close方法关闭你新打问开的文答件
Application.Quit '关闭EXCEL
End Sub