创建新的工作表、图表或宏工作表。 新工作表成为活动工作表。
语法
expression.Add（早于、晚于、计数、类型）
expression 一个表示 Sheets 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Before | 可选 | Variant | 指定工作表的对象，新建的工作表将置于此工作表之前。 |
| After | 可选 | Variant | 指定工作表的对象，新建的工作表将置于此工作表之后。 |
| Count | 可选 | Variant | 要添加的工作表数。 默认值是所选工作表的数目。 |
| Type | 可选 | Variant | 指定工作表类型。 可以是以下 xlSheetType 常量之一：xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。 如果要基于现有模板插入工作表，请指定模板的路径。 默认值为 xlWorksheet。 |
返回值
表示新工作表、图表或宏工作表的 Object 值。
备注
如果同时省略 Before 和 After，则新工作表插入到活动工作表之前。
示例
本示例将新建工作表插入到活动工作簿的最后一张工作表之前。
ActiveWorkbook.Sheets.Add Before:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
此示例在活动工作簿中的最后一个工作表后插入新工作表，并在局部变量中捕获返回的对象引用。
Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
注意
在 32 位 Excel 2010 中，此方法不能一次性创建超过 255 个工作表。
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。