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

《添加与删除工作簿的工作表》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

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

3、作簿中批量添加工作表，可以使用下面的代码。SubAddsh_2()DimiAsIntegerDimshAsWorksheetFori=1To10Setsh=Sheets.Add(after:=Sheets(Sheets.Count))sh.Name=iNextEndSub代码解析：Addsh_2过程使用For...Next语句和Add方法在工作簿中添加10张工作表并将添加的工作表依次重命名。3、在工作簿中删除所有工作表的代码。删除所有的工作表的代码。SubDelsh()DimshAsWorksheetForEachshInThisW

4、orkbook.SheetsIfsh.Name<>"数据库"ThenApplication.DisplayAlerts=Falsesh.DeleteApplication.DisplayAlerts=TrueEndIfNextEndSub代码解析：Delsh过程使用Delete方法删除工作簿中除了“数据库”工作表以外所有的工作表。第3行代码使用ForEach...Next语句遍历代码所在工作簿中所有的工作表。第4行到第7行代码判断工作表名称是否为“数据库”,如果不是则使用Delete方法删除。第5行代码将Application对象的

5、DisplayAlerts属性设置为False，使删除时不显示如图所示系统警告对话框。图1系统警告对话框第6行代码使用Delete方法删除工作表，应用于工作表对象的Delete方法删除指定的对象，语法如下：expression.Delete参数expression是必需的，该表达式返回“应用于”列表中的对象之一。4、在工作簿中判断是否存在相同名称的工作表并添加单张新的工作表的代码。4.1在添加前先判断工作簿中是否存在相同名称的工作表,然后再进行下一步的操作。对于单张工作表可以使用下面的代码。SubAddsh_3()DimShAsWo

6、rksheetForEachShInWorksheetsIfSh.Name="数据"ThenMsgBox"工作簿中已有""数据""工作表,不能重复添加!"ExitSubEndIfNextWithWorksheetsSetSh=.Add(after:=Worksheets(.Count))Sh.Name="数据"EndWithEndSub代码解析：Addsh_3过程在使用Add方法在工作簿中新建“数据”工作表时首先判断工作簿中是否存在“数据”工作表，如果已存在“数据”工作表则不运行添加工作表的代码而只显示一个消息框进行提示，如图所示。

7、图2工作表同名提示4.2还可以使用错误处理语句来绕过错误，如下面的代码所示。SubAddsh_4()DimshAsWorksheetOnErrorGoTolineWithWorksheetsSetsh=.Add(after:=Worksheets(.Count))sh.Name="数据"EndWithExitSubline:MsgBox"工作簿中已有""数据""工作表,不能重复添加!"Application.DisplayAlerts=FalseWorksheets(Worksheets.Count).DeleteApplicati

8、on.DisplayAlerts=TrueEndSub代码解析：Addsh_4过程是先使用Add方法在工作簿中新建“数据”工作表，如果工作簿中已存在同名的工作表则使用GoTo语句转移到指定的line行处进行提示并删除已添加还没有重命名