发布网友
共1个回答
热心网友
首先EXCEL必需有一个空白的工作表,即除了sheet1,sheet2,sheet3外还有其它工作表,方可把三个全删除
示例:
sub delSheet()
'导入我就不写了
……
……
dim wb as workbook
set wb=ActiveWorkbook
'屏蔽对话框
Application.DisplayAlerts = False
wb.Worksheets("Sheet1").Delete
wb.Worksheets("Sheet2").Delete
wb.Worksheets("Sheet3").Delete
Application.DisplayAlerts = TRUE
end sub