Sheets.Add 方法 (Excel)

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

语法

表达式。添加 (之前、之后、计数、类型)

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。