添加与删除工作簿的工作表

1、添加与删除工作簿的工作表1、在工作簿添加单个工作表中的代码。Sub Addsh()Dim Sh As WorksheetWith WorksheetsSet Sh = .Add(after:=Worksheets(.Count) Sh.Name = 工作 End WithEnd Sub代码解析：Addsh 过程使用 Add 方法在工作簿中新建“工作”工作表。Dim Sh As Worksheet 声明变量 Sh 为工作表对象。.Add(after:=Worksheets(.Count) 使用 Add 方法在工作簿的最后新建“工作”工作表。Add 方法应用于 Sheets 和 Worksheet

2、s 对象时新建工作表、图表或宏表，语法如下： expression.Add(Before, After, Count, Type)参数 Before 是可选的，指定工作表对象，新建的工作表将置于此工作表之前。参数 After 是可选的，指定工作表对象，新建的工作表将置于此工作表之后。如果 Before 和 After 两者均省略，则新建的工作表将插入到活动工作表之前。参数 Count 可选，要新建的工作表的数目。默认值为1。参数 Type 可选，指定新建的工作表类型。第 5 行代码将添加的工作表重命名为“数据” 。2、在工作簿中批量添加工作表的代码。如果需要在工作簿中批量添加工作表，可以使用下

3、面的代码。Sub Addsh_2()Dim i As IntegerDim sh As WorksheetFor i = 1 To 10Set sh = Sheets.Add(after:=Sheets(Sheets.Count) sh.Name = iNextEnd Sub代码解析：Addsh_2 过程使用 For.Next 语句和 Add 方法在工作簿中添加 10 张工作表并将添加 的工作表依次重命名。3、在工作簿中删除所有工作表的代码。删除所有的工作表的代码。Sub Delsh()Dim sh As WorksheetFor Each sh In ThisWorkbook.SheetsI

4、f sh.Name 数据库ThenApplicati on .DisplayAlerts = Falsesh.DeleteApplicati on .DisplayAlerts = TrueEnd IfNextEnd Sub代码解析：Delsh过程使用Delete方法删除工作簿中除了“数据库”工作表以外所有的工作表。第3行代码使用For Each.Next语句遍历代码所在工作簿中所有的工作表。第4行到第7行代码判断工作表名称是否为“数据库”，如果不是则使用 Delete方法删除。第5行代码将Application对象的DisplayAlerts属性设置为 False，使删除时不显示如 图所示系

5、统警告对话框。图1系统警告对话框第6行代码使用Delete方法删除工作表，应用于工作表对象的Delete方法删除指定的对象，语法如下：expressi on .Delete参数expression是必需的，该表达式返回 应用于列表中的对象之一。4、在工作簿中判断是否存在相同名称的工作表并添加单张新的工作表的代码。4.1在添加前先判断工作簿中是否存在相同名称的工作表，然后再进行下一步的操作。对于单张工作表可以使用下面的代码。Sub Addsh_3()Dim Sh As WorksheetFor Each Sh In WorksheetsIf Sh.Name =数据ThenMsgBox 工作簿中已

6、有数据工作表，不能重复添加!Exit SubEnd IfNextWith WorksheetsSet Sh = .Add(after:=Worksheets(.Cou nt)Sh.Name =数据End WithEnd Sub代码解析:Addsh_3过程在使用Add方法在工作簿中新建“数据”工作表时首先判断工作簿中是 否存在数据”工作表，如果已存在数据”工作表则不运行添加工作表的代码而只显示一 个消息框进行提示，如图所示。图2工作表同名提示4.2还可以使用错误处理语句来绕过错误，如下面的代码所示。Sub Addsh_4()Dim sh As WorksheetOn Error GoTo lin

7、eWith WorksheetsSet sh = .Add(after:=Worksheets(.Cou nt) sh.Name =数据”End WithExit Subline:MsgBox 工作簿中已有数据工作表，不能重复添加!Applicati on .DisplayAlerts = FalseWorksheets(Worksheets.Cou nt).DeleteApplicati on .DisplayAlerts = TrueEnd Sub代码解析：Addsh_4过程是先使用 Add方法在工作簿中新建“数据”工作表，如果工作簿中已存 在同名的工作表则使用GoTo语句转移到指定的li

8、ne行处进行提示并删除已添加还没有重命名的工作表，也就是工作簿中最后一张工作表。如果是批量添加工作表，使用上述方法时，添加工作表和已有工作表重名时，后面即使没有重名的工作表也不能添加，所以应先使用错误处理语句忽略错误，待全部添加好以后再删除多余的工作表，如下面的代码所示。Sub Addsh_5()Dim i As Integer, arrDim sh As WorksheetOn Error Resume Nextarr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)For i = 0 To UBound(arr)With WorksheetsSet sh = .

9、Add(after:=Sheets(.Count)sh.Name = arr(i)End WithNextApplication.DisplayAlerts = FalseFor Each sh In WorksheetsIf sh.Name Like Sheet* Then sh.DeleteNextApplication.DisplayAlerts = TrueEnd Sub代码解析：Addsh_5 过程使用 Add 方法在工作簿中添加 10 张工作表并重新命名为 1 到 10 ，如果 工作簿中已有相同名称的工作表则不添加。第 4 行代码错误处理语句，当发生重名错误时忽略错误，继续添加工作表。第 5 行到第 11 行代码在工作簿中添加 10 张工作表并重新命名为 1 到 10 ，