Excel VBA常用“方法”

Excel VBA常用“方法”
创作者：撸袖创业工作室创作日期：2022-11-19
想了解VBA中操作Excel常用方法总结的相关内容吗？在本文为您仔细讲解VBA 操作Excel常用方法的相关知识和一些代码实例，欢迎阅读和指正，下面大家一起来学习吧。

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

下面是一些代码示例：
1-1:关闭活动工作簿。

代码如下:
Sub CloseWorkbook()
ActiveWorkbook.Close
End Sub
如果工作簿有更改，提示是否保存，可添加“SaveChanges”参数，如:直接保存并关闭工作簿,代码如下:
Sub ClostAndSaveWorkbook()
ActiveWorkbook.Close Savechanges:=True
End Sub
将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。

1-2:关闭所有打开的工作簿，并提示是否保存。

代码如下:
Sub CloseAllWorkbooks()
On Error Resume Next
Workbooks.Close
End Sub
1-3：退出Excel，并提示对有更改的工作簿进行保存。

代码如下:
Sub QuitExcel()
Application.Quit
End Sub
1-4：保存活动工作簿并退出Excel。

代码如下:
Sub SaveActiveWorkAndQuit()
ActiveWorkbook.Save
Application.Quit
End Sub
1-5：保存所有打开的工作簿并退出Excel。

代码如下:
Sub SaveAllAndQuit()
For Each wbk In Workbooks
wbk.Save
Next
Application.Quit
End Sub
1-6：退出Excel，所有的改动都不保存。

代码如下:
Sub QutiAndNoAlerts()
Application.DisplayAlerts = False Application.Quit
End Sub
1-7：打开一个新工作簿。

代码如下:
Workbooks.Add
1-8：获得第一个工作簿的名称。

代码如下:
Workbooks(1).Name
1-9：获得打开的工作簿数目。

代码如下:
Workbooks.Count
1-10：激活第二个打开的工作簿。

代码如下:
Workbooks(2).Activate
1-11：激活工作簿Chap02.xls。

代码如下:
Workbooks("Chap02.xls").Activate
1-12：当前活动的工作簿存盘为NewChap.xls。

代码如下:
ActiveWorkbook.SaveAs Filename:="NewChap.xls"
1-13：关闭第一个工作簿
代码如下:
Workbooks(1).Close
1-14：关闭当前活动的工作簿，不保存变化。

代码如下:
ActiveWorkbook.Close SaveChanges:=False
1-15：关闭所有打开的工作簿。

代码如下:
Workbooks.Close
2、如果你运行了最后一个例子，那么现在你所有的工作簿都已经关闭了。

在你要在工作表上使用前，请确保先打开一个新工作簿。

当你除了单个工作表时，你必须知道如何在工作簿里添加新的工作表，知道如何选择一个或一组工作表，知道如何命名、复制、移动和删除工作表。

在VB里，每个任务都需要一个专门的方法或属性。

2-1：添加一个新工作表
代码如下:
Worksheets.Add
2-2：获得第一个工作表的名称
代码如下:
Worksheets(1).Name
2-3：选择名为“Sheet3”的工作表
代码如下:
Worksheets(3).Select
2-4：选择第一，第三和第四个工作表
代码如下:
Worksheets(Array(1,3,4)).Select
2-5：激活名为“Sheet1”的工作表
代码如下:
Worksheets(“Sheet1”).Activate
2-6：将工作表“Sheet2”移动到工作表“Sheet1”之前代码如下:
Worksheets("Sheet2").Move
Before:=Worksheets("Sheet1")
2-7：重命名工作表“Sheet2”为“Expenses”
代码如下:
Worksheets("Sheet2").Name = "Expenses"
2-8：获得当前工作簿里的工作表数目
代码如下:
Worksheets.Count
2-9：删除当前工作簿里的工作表“Expenses”代码如下:
Worksheets("Expenses").Delete。