前言
当要处理的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