Excel VBA实例教程：工作表的添加与删除.docVIP

Excel VBA实例教程 #025：工作表的添加与删除 在工作簿中添加工作表使用Add方法，如下面的代码所示。 Sub Addsh() ? ? Dim Sh As Worksheet ? ? With Worksheets ? ?? ???Set Sh = .Add(after:=Worksheets(.Count)) ? ?? ???Sh.Name = 数据 ? ? End With End Sub 代码解析：Addsh过程使用Add方法在工作簿中新建“数据”工作表。第2行代码声明变量Sh为工作表对象。第4行行代码使用Add方法在工作簿的最后新建“数据”工作表。Add 方法应用于Sheets和Worksheets对象时新建工作表、图表或宏表，语法如下：expression.Add(Before, After, Count, Type)参数Before是可选的，指定工作表对象，新建的工作表将置于此工作表之前。参数After是可选的，指定工作表对象，新建的工作表将置于此工作表之后。如果Before和 After两者均省略，则新建的工作表将插入到活动工作表之前。参数Count可选，要新建的工作表的数目。默认值为 1。参数Type可选，指定新建的工作表类型。第5行代码将添加的工作表重命名为“数据”。如果需要在工作簿中批量添加工作表，可以使用下面的代码。 Sub Addsh_2() ? ? Dim i As Integer ? ? Dim sh As Worksheet ? ? For i = 1 To 10 ? ?? ???Set sh = Sheets.Add(after:=Sheets(Sheets.Count)) ? ?? ???sh.Name = i ? ? Next End Sub 代码解析：Addsh_2过程使用For...Next 语句和Add方法在工作簿中添加10张工作表并将添加的工作表依次重命名。在使用以上代码往工作簿中添加工作表时，如果工作簿中已存在相同名称的工作表，运行时会发生错误，代码中断，如图1所示。图 1 运行错误提示为了避免此错误的发生，可以在添加前先删除所有的工作表，如下面的代码所示。 Sub Delsh() ? ? Dim sh As Worksheet ? ? For Each sh In ThisWorkbook.Sheets ? ?? ???If sh.Name 工作表的添加与删除 Then ? ?? ?? ?? ?Application.DisplayAlerts = False ? ?? ?? ?? ?sh.Delete ? ?? ?? ?? ?Application.DisplayAlerts = True ? ?? ???End If ? ? Next End Sub 代码解析：Delsh过程使用Delete方法删除工作簿中除了“工作表的添加与删除”工作表以外所有的工作表。第3行代码使用For Each...Next语句遍历代码所在工作簿中所有的工作表。第4行到第7行代码判断工作表名称是否为“工作表的添加与删除”,如果不是则使用Delete方法删除。其中第5行代码将Application对象的DisplayAlerts属性设置为False，使删除时不显示如图 25 2所示系统警告对话框。图 2 系统警告对话框第6行代码使用Delete方法删除工作表，应用于工作表对象的Delete方法删除指定的对象，语法如下：expression.Delete参数expression是必需的，该表达式返回“应用于”列表中的对象之一。在运行添加工作表代码前先删除工作簿中的工作表虽然可以避免同名错误,但也可能误删除有用的工作表,因此更为严谨的方法是在添加前先判断工作簿中是否存在相同名称的工作表,然后再进行下一步的操作。对于单张工作表可以使用下面的代码。 Sub Addsh_3() ? ? Dim Sh As Worksheet ? ? For Each Sh In Worksheets ? ?? ???If Sh.Name = 数据 Then ? ?? ?? ?? ?MsgBox 工作簿中已有数据工作表,不能重复添加! ? ?? ?? ?? ?Exit Sub ? ?? ???End If ? ? Next ? ? With Worksheets ? ?? ???Set Sh = .Add(after:=Worksheets(.Count)) ? ?? ???Sh.Name = 数据 ? ? End With End Sub 代码解析：Addsh_3过程在使用Add方法在工作簿中新建“数据”工作表时