1、打开Excel表格,点击【开发工具】,【Visual Basic】打开VBA编辑器,也可以使用【Alt+F11】组合键打开VBA编辑器。

3、在VBA编辑器的代码框里面输入以下代码程序:Sub ExitWorkbook()On Error Resume Next '忽略运行过程中出现的错误Application.DisplayAlerts = False '忽略运行过程中出现的警告ThisWorkbook.Save '保存该工作表ThisWorkbook.Close '关闭此工作表End Sub

5、点击【执行】,将会发现工作已经被关闭,Excel程序并没有关闭。

6、ThisWorkbook.Close主要关闭与它相关窗口,但它不会结束程序。如果要关闭其他工作表,可以写成:Workbooks("工作表名称").Close 或 Windows("工作表名称").Close它们其执行的结果是一样的,如:Sub ExitWorkbook()On Error Resume Next '忽略运行过程中出现的错误Application.DisplayAlerts = False '忽略运行过程中出现的警告ThisWorkbook.Save '保存该工作表Windows("Close关闭工作表").Close '关闭此工作表End Sub
