这里用到了Delete()函数,但是删除工作表时会出现一个问题,就是如果sheet表里有数据,就会激发系统保护功能,弹出警告信息提示框,从而打断批量删除。
// 批量删除工作簿中除名为"XXX"之外的所有工作表
function DeleteSh()
{
//关闭屏幕刷新和警告弹窗
with(Application){
ScreenUpdating = false;
DisplayAlerts = false;
}
for(var sh of Sheets){
if(sh.Name != "XXX"){
Console.log(sh.Name);
sh.Delete();
}
}
//打开屏幕刷新和警告弹窗
with(Application){
ScreenUpdating = true;
DisplayAlerts = true;
}
}