Private Sub Workbook_BeforeClose(Cancel As Boolean)On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", ...
PrivateSubWorkbook_BeforeClose(CancelAsBoolean) OnErrorResumeNext Application.OnTimeRunWhen,SaveAndClose,,False OnErrorGoTo0 EndSub PrivateSubWorkbook_SheetChange(ByValShAsObject,ByValTargetAsRange) OnErrorResumeNext Application.OnTimeRunWhen,SaveAndClose,,False OnErrorGoTo0 RunWhen=Now TimeSerial(0,NU...
要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。下面是一些代码示例: 关闭活动工作簿,如果工作簿有更改,提示是否保存: Sub CloseWorkbook()ActiveWorkbook.CloseEnd Sub 如果要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿: Sub ClostAndSaveWorkbook()...
2 点击VBA编辑器菜单栏上面的【插入】，【模块】。3 在VBA编辑器的代码框里面输入以下代码程序：Sub ExitWorkbook()On Error Resume Next '忽略运行过程中出现的错误Application.DisplayAlerts = False '忽略运行过程中出现的警告ThisWorkbook.Save '保存该工作表ThisWorkbook.Close '关闭此...
Sub OpenWorkbook() Workbooks.Open ("C:\Users\Steven\Desktop\Test1.xlsx") '打开指定工作簿 MsgBox ActiveWorkbook.Name '显示打开工作簿名称 End Sub 详细演示如下: 通过如上代码的演示,在复制完代码到模块1后,按下键盘上的F5键即可执行OpenWorkbook过程,该宏执行完毕后,Excel自动打开名称为Test1.xlsx的工作簿...
要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。下面是一些代码示例: 关闭活动工作簿,如果工作簿有更改,提示是否保存: Sub CloseWorkbook() ActiveWorkbook.Close End Sub 如果要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿: ...
Sub ClostAndSaveWorkbook()ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。关闭所有打开的工作簿，并提示是否保存：Sub CloseAllWorkbooks()On Error Resume Next Workbooks.Close End Sub 退出Excel，并提示对有更改的工作簿进行保存：Sub...
Workbooks对象是Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合。有close、add、open等方法。 Workbooks.close ' 关闭所有打开的工作簿。 Workbooks.Add ' 创建一个新工作簿。 ActiveWorkbook '返回当前处于活动状态的工作簿。 Workbooks.open Filename:="TEST.XLSX", ReadOnly:=True ' 将文件TEST.XLS...
Sub ClostAndSaveWorkbook() ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。 关闭所有打开的工作簿,并提示是否保存: Sub CloseAllWorkbooks() On Error Resume Next Workbooks.Close End Sub ...
要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。下面是一些代码示例: 关闭活动工作簿,如果工作簿有更改,提示是否保存: Sub CloseWorkbook() ActiveWorkbook.Close End Sub 如果要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿: ...