vba中怎么退出excel表格

1.VBA怎样关闭工作簿和退出Excel?

要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法：关闭活动工作簿，如果工作簿有更改，提示是否保存：Sub CloseWorkbook()ActiveWorkbook.CloseEnd Sub如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：Sub ClostAndSaveWorkbook()ActiveWorkbook.Close Savechanges:=TrueEnd Sub将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。

关闭所有打开的工作簿，并提示是否保存：Sub CloseAllWorkbooks()On Error Resume NextWorkbooks.CloseEnd Sub退出Excel，并提示对有更改的工作簿进行保存：Sub QuitExcel()Application.QuitEnd Sub保存活动工作簿并退出Excel:Sub SaveActiveWorkAndQuit()ActiveWorkbook.SaveApplication.QuitEnd Sub下面的代码在退出Excel时都不会提示是否保存工作簿。保存所有打开的工作簿并退出Excel:Sub SaveAllAndQuit()For Each wbk In Workbookswbk.SaveNextApplication.QuitEnd Sub退出Excel，所有的改动都不保存：Sub QutiAndNoAlerts()Application.DisplayAlerts = FalseApplication.QuitEnd Sub。

2.如何用VBA实现excel退出时自动

如果不启用宏，自动关闭工作簿是无法办到的。因为不启用宏，任何代码都不会运行，怎么会自动关闭工作簿呢。

通常的做法是，在关闭工作簿事件中将所有有用的工作表深度隐藏，显示一个没有的工作表，可在其中写明必须启用宏之类的提示信息。在工作簿打开事件中，将有用工作表显示，无用工作表隐藏。这样当不启用宏打开工作簿将没有任何有用内容，只能看见一个无用工作表中的提示信息。打开时启用宏才能看到和使用正常的工作表。

说明：深度隐藏的工作表是无法人工显示出来的，只能由代码显示出来。

3.VB编程如何打开和关闭EXCEL文件

Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表Dim xlrange As Excel.Range'上面为公共变量Private Sub Command1_Click()Set xlapp = CreateObject("excel.application") '第一层Set xlbook = xlapp.Workbooks.Open("d:\123.xlsx")xlapp.Visible = TrueEnd SubPrivate Sub Command2_Click()xlbook.CloseEnd Sub。