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

添加与删除工作簿的工作表 1、在工作簿添加单个工作表中的代码。 Sub Addsh() Dim Sh As Worksheet With Worksheets Set Sh = .Add(after:=Worksheets(.Count)) Sh.Name = 工作 End With End Sub 代码解析： Addsh过程使用Add方法在工作簿中新建“工作”工作表。 Dim Sh As Worksheet声明变量Sh为工作表对象。 .Add(after:=Worksheets(.Count))使用Add方法在工作簿的最后新建“工作”工作表。 Add 方法应用于Sheets和Worksheets对象时新建工作表、图表或宏表，语法如下： expression.Add(Before, After, Count, Type) 参数Before是可选的，指定工作表对象，新建的工作表将置于此工作表之前。 参数After是可选的，指定工作表对象，新建的工作表将置于此工作表之后。 如果Before和 After两者均省略，则新建的工作表将插入到活动工作表之前。 参数Count可选，要新建的工作表的数目。默认值为 1。 参数Type可选，指定新建的工作表类型。 第5行代码将添加的工作表重命名为“数