VBA中操作Excel常用方法总结

要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法。

下面是一些代码示例： 关闭活动工作簿，如果工作簿有更改，提示是否保存：

复制代码 代码如下:

    Sub CloseWorkbook()

    ActiveWorkbook.Close

    End Sub

如果要避免出现提示，可添加“Sa编程客栈veChanges”参数，如直接保存并关闭工作簿：

复制代码 代码如下:

    Sub ClostAndSaveWorkbook()

    ActiveWorkbook.Close Savechhttp://www.devze.comanges:=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.Savhttp://www.devze.come

    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).Acti编程客栈vate

激活工作簿Chap02.xls

复制代码 代码如下:

Workbooks("Chap02.xls").Activate

当前活动的工作簿存盘为NewChap.xls

复制代码 代码如下:

ActiveWorkbook.SaveAs Filename:="NewChap.xls"

关闭第一个工作簿

复制代码 代码如下:

Wo开发者_JS培训rkbooks(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”为“KvSfKPcLExpenses”

复制代码 代码如下:

Worksheets("Sheet2").Name = "Expenses"

获得当前工作簿里的工作表数目

复制代码 代码如下:

Worksheets.Count

删除当前工作簿里的工作表“Expenses”

复制代码 代码如下:

Worksheets("Expenses").Delete