VBA中操作Excel常⽤⽅法总结
要⽤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.Closevba做excel窗体录入教程
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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。