要用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 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 下面列举了一些VBA的常用操作: 打开一个新工作簿 复制代码 代码如下: Workbooks.Add 获得第一个工作簿的名称 复制代码 代码如下: Workbooks(1).Name 获得打开的工作簿数目 复制代码 代码如下: Workbooks.Count 激活第二个打开的工作簿 复制代码 代码如下: Workbooks(2).Activate 激活工作簿Chap02.xls 复制代码 代码如下: Workbooks("Chap02.xls").Activate 当前活动的工作簿存盘为NewChap.xls 复制代码 代码如下: ActiveWorkbook.SaveAs Filename:="NewChap.xls" 关闭第一个工作簿 复制代码 代码如下: Workbooks(1).Close 关闭当前活动的工作簿,不保存变化 复制代码 代码如下: ActiveWorkbook.Close SaveChanges:=False 关闭所有打开的工作簿 复制代码 代码如下: Workbooks.Close 如果你运行了最后一个例子,那么现在你所有的工作簿都已经关闭了。 在你要在工作表上使用前,请确保先打开一个新工作簿。 当你除了单个工作表时,你必须知道如何在工作簿里添加新的工作表,知道如何选择一个或一组工作表,知道如何命名、复制、移动和删除工作表。 在VB里,每个任务都需要一个专门的方法或属性。 添加一个新工作表 复制代码 代码如下: Worksheets.Add 获得第一个工作表的名称 复制代码 代码如下: Worksheets(1).Name 选择名为“Sheet3”的工作表 复制代码 代码如下: Worksheets(3).Select 选择第一,第三和第四个工作表 复制代码 代码如下: Worksheets(Array(1,3,4)).Select 激活名为“Sheet1”的工作表 复制代码 代码如下: Worksheets(“Sheet1”).Activate 将工作表“Sheet2”移动到工作表“Sheet1”之前 复制代码 代码如下: Worksheets("Sheet2").Move Before:=Worksheets("Sheet1") 重命名工作表“Sheet2”为“Expenses” 复制代码 代码如下: Worksheets("Sheet2").Name = "Expenses" 获得当前工作簿里的工作表数目 复制代码 代码如下: Worksheets.Count 删除当前工作簿里的工作表“Expenses” 复制代码 代码如下: Worksheets("Expenses").Delete |
|