工作表的新建和删除
新建: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.Delete
End Sub
备注:
直接删除的时候会弹出下面这样提示框。
只需使用DisplayAlerts屏蔽掉弹出框就可以了。
Application.DisplayAlerts = False(禁止弹出提示框)
Application.DisplayAlerts = True(允许弹出提示框)
Sub sample_Delete2()
Application.DisplayAlerts = False
Worksheets('newSheet').Delete
Application.DisplayAlerts = True
End Sub
赞 (0)