工作表的新建和删除

• 新建：Worksheets.Add 方法 (Excel)

创建新的工作表、图表或宏工作表。新工作表成为活动工作表。

语法

Worksheets.Add(Before、After、Count、Type)

参数

名称	必需/可选	数据类型	说明
Before	可选	Variant	指定工作表的对象，新建的工作表将置于此工作表之前。
After	可选	Variant	指定工作表的对象，新建的工作表将置于此工作表之后。
Count	可选	Variant	要添加的工作表数。默认值为 1。
Type	可选	Variant	指定工作表类型。*

*：Type可以是下列的**XlSheetType** 常量之一: xlWorksheet、 xlChart、 xlExcel4MacroSheet或xlExcel4IntlMacroSheet。如果要基于现有模板插入工作表，请指定模板的路径。默认值为 xlWorksheet。

返回值

表示新工作表、图表或宏工作表的 Object 值。

备注

如果同时省略 Before 和 After，则新工作表插入到活动工作表之前。

例：

Sub sample_Add() '在最后加入新的Sheet 'Worksheets.Count ：总的Sheet数    Worksheets.Add after:= Worksheets(Worksheets.Count)    '将活动的Sheet名字变更为newSheet ActiveSheet.Name = 'newSheet'End Sub

• 删除：Worksheets. Delete 方法 (Excel)

删除工作表。

语法

Worksheets. Delete

例

Sub sample_Delete()    '具体指定工作表名删除    Worksheets('newSheet').Delete    '指定工作表下标删除    Worksheets(2).Delete    '当前活动Sheet删除    ActiveSheet.DeleteEnd Sub

备注：

直接删除的时候会弹出下面这样提示框。

只需使用DisplayAlerts屏蔽掉弹出框就可以了。

Application.DisplayAlerts = False（禁止弹出提示框）

Application.DisplayAlerts = True（允许弹出提示框）

Sub sample_Delete2() Application.DisplayAlerts = False Worksheets('newSheet').Delete Application.DisplayAlerts = TrueEnd Sub