WPS JS宏实现批量删除工作表功能

这里用到了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;
	}
}