工作表的添加与删除
Sheets.Add 方法
表达式.Add(Before, After, Count, Type)
XlSheetType 常量之一：
xlWorksheet 工作表
xlChart 图表
xlExcel4MacroSheet 宏表
xlExcel4IntlMacroSheet 对话框
默认值为 xlWorksheet
1 Sub 新建sheets() 2 'Sheets.Add 3 'Sheets.Add Sheets("abc") 4 'Sheets.Add , Sheets("abc") 5 'Sheets.Add after:=Sheets("abc") 6 'Sheets.Add Count:=2 7 'Sheets.Add , , 2 8 Sheets.Add , , , xlChart 9 End Sub
删除工作表：
1 Sub 删除工作表() 2 Sheet10.Delete 3 End Sub
实例：
1 '如果想批量新建工作表，可以结果循环来制作 2 Sub 新建1到12月份的工作表() 3 Dim j% 4 For j = 12 To 1 Step -1 5 Sheets.Add.Name = j & "月" 6 Next 7 End Sub
'删除工作表 Sub 删除sheet() On Error Resume Next Application.DisplayAlerts = False ’警告窗口不再显示 Dim i% For i = 1 To 12 Sheets(i & "月").Delete Next Application.DisplayAlerts = True ‘警告窗口恢复显示 End Sub
