前言

当要处理的Excel表格比较多的时候，批量新建和删除Excel工作表会变得很困难。作为Excel自动化的一个重要环节，表格的自动化批量新建和删除变得很重要。

知识

Excel和WPS都提供了一系列API用于新建和删除Excel工作表。

操作

方法

新建工作表

Sheets.Add

删除工作表

Sheets("表名").Delete

功能设计

提供一个界面，用户可以通过点击按钮，实现以下功能：

新增工作簿，在新的工作簿新建工作表，共12张表，表名1月，2月，...12月删除刚刚新建的12个月份表

代码Sub DeleteSheets()Dim wb As WorkbookApplication.DisplayAlerts = FalseSet wb = Workbooks.Add'----------- 新建12个表 -------------------For i = 1 To 12 wb.Sheets.Add wb.ActiveSheet.Name = i & "月"Next' ----------- 删除刚刚新建的表 -----------For i = 1 To 12 shtName = i & "月" wb.Sheets(shtName).Delete MsgBoxEx shtName & "已删除", 500NextEnd Sub