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()...
如要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿: Sub ClostAndSaveWorkbook() ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。 关闭所有打开的工作簿,并提示是否保存: Sub CloseAllWorkbooks() On Error Resume Next Workbooks.C...
要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。下面是一些代码示例: 关闭活动工作簿,如果工作簿有更改,提示是否保存: Sub CloseWorkbook() ActiveWorkbook.Close End Sub 如果要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿: ...
Sub OpenWorkbook() Workbooks.Open ("C:\Users\Steven\Desktop\Test1.xlsx") '打开指定工作簿 MsgBox ActiveWorkbook.Name '显示打开工作簿名称 End Sub 详细演示如下: 通过如上代码的演示,在复制完代码到模块1后,按下键盘上的F5键即可执行OpenWorkbook过程,该宏执行完毕后,Excel自动打开名称为Test1.xlsx的工作簿...
Sub ClostAndSaveWorkbook()ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。关闭所有打开的工作簿，并提示是否保存：Sub CloseAllWorkbooks()On Error Resume Next Workbooks.Close End Sub 退出Excel，并提示对有更改的工作簿进行保存：Sub...
要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。下面是一些代码示例: 关闭活动工作簿,如果工作簿有更改,提示是否保存: Sub CloseWorkbook() ActiveWorkbook.Close End Sub 如果要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿: ...
"工作表名称").Close 或 Windows("工作表名称").Close它们其执行的结果是一样的，如：Sub ExitWorkbook()On Error Resume Next '忽略运行过程中出现的错误Application.DisplayAlerts = False '忽略运行过程中出现的警告ThisWorkbook.Save '保存该工作表Windows("Close关闭工作表").Close &#...
Workbooks.close ' 关闭所有打开的工作簿。 Workbooks.Add ' 创建一个新工作簿。 ActiveWorkbook '返回当前处于活动状态的工作簿。 Workbooks.open Filename:="TEST.XLSX", ReadOnly:=True ' 将文件TEST.XLSX打开为只读工作簿 Workbook对象是一个Microsoft Excel 工作簿。有Name、Path等属性。有SaveAs等方法。有Open...