VBA --Sheets.Add 方法

Excel 开发人员参考

Sheets.Add 方法

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

语法

表达式.Add(Before,After,Count, Type)

表达式   一个代表 Sheets 对象的变量。

参数

名称	必选/可选	数据类型	说明
Before	可选	Variant	指定工作表的对象，新建的工作表将置于此工作表之前。
After	可选	Variant	指定工作表的对象，新建的工作表将置于此工作表之后。
Count	可选	Variant	要添加的工作表数。默认值为 1。
Type	可选	Variant	指定工作表类型。可以为下列 XlSheetType 常量之一：xlWorksheet、xlChart、xlExcel4MacroSheet 或xlExcel4IntlMacroSheet。如果基于现有模板插入工作表，则指定该模板的路径。默认值为xlWorksheet。

返回值
一个 Object 值，它代表新的工作表、图表或宏表。

说明

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

示例

本示例将新建工作表插入到活动工作簿的最后一张工作表之前。

Visual Basic for Applications
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)

© 2010 Microsoft Corporation。保留所有权利。

Sub AddSheet(ByVal sheetName, ByVal afterSheet)

        Dim ws As Worksheet
        On Error Resume Next
        Set ws = Worksheets(sheetName)
        If Err Then       'sheetName sheet not exist "
            Sheets(afterSheet).Select
            'ActiveWorkbook.Sheets.Add Before:=Sheets(afterSheet)
            ActiveWorkbook.Sheets.Add AFTER:=Sheets(afterSheet)
            ActiveSheet.Name = sheetName
            On Error GoTo 0
        Else
            'sheetName sheet is exist
            Call deleteSheet(sheetName)
            Sheets(afterSheet).Select
            'ActiveWorkbook.Sheets.Add Before:=Sheets(afterSheet)
            ActiveWorkbook.Sheets.Add AFTER:=Sheets(afterSheet)
            ActiveSheet.Name = sheetName
        End If
 
End Sub
Sub deleteSheet(ByVal sheetName)
    Sheets(sheetName).Select
    Application.DisplayAlerts = False
    Sheets(sheetName).Delete
    Application.DisplayAlerts = True
End Sub