【WPS JSA】按表单批量删除工作表-夜雨聆风

【WPS JSA】按表单批量删除工作表

大家好，我是宽吻鳄。这里是「宽吻鳄画表勒格记」——专注WPS表格硬核技巧，每期干货，让你的工作效率直线飙升！欢迎关注，咱们一起解锁更多高效技能！

在日常使用WPS表格时，我们常会在一个工作簿内存放大量工作表，用于数据汇总、分类查看或批量打印。但随着工作表数量增多，像删除、移动、重命名这类基础操作也会变得繁琐耗时，还容易出错。

其实，凡是涉及批量或重复性操作，JSA（JavaScript for Application）宏代码都能帮你一键完成，秒速搞定！今天，重点介绍按表单批量删除工作表，这种操作方式更直观、更安全。

来吧，直接上代码。

【WPS JSA】代码：

function 按表单批量删除工作表() {//先用“提取工作簿工作表目录”代码提出所有工作表目录//分析确定并只保留待删除工作表//再执行“按表单批量删除工作表”代码    let response = MsgBox("将删除表单中的所有工作表，删除不可恢复，确定吗？？？", 1, "请谨慎确认是否删除");    if(response != 1) return; // 用户点击取消    let deletedCount = 0;    let wps = Application;    try {        // 获取当前工作簿和工作表        let activeWorkbook = wps.ActiveWorkbook;        let activeSheet = wps.ActiveSheet;        // 获取A列名单（从A2开始到最后非空单元格）        let lastRow = activeSheet.Cells(activeSheet.Rows.Count, 1).End(-4162).Row;        if(lastRow < 2) {            MsgBox("A列中没有找到要删除的工作表名称列表", 0, "操作终止");            return;        }        let names = activeSheet.Range("A2:A" + lastRow).Value2;        // 设置执行环境        wps.DisplayAlerts = false;        wps.ScreenUpdating = false;        // 遍历并删除工作表        for(let i = 1; i <= names.length; i++) {            let sheetName = names[i-1][0];            if(sheetName && sheetName.toString().trim() !== "") {                try {                    let sheet = activeWorkbook.Sheets.Item(sheetName);                    if(sheet) {                        sheet.Delete();                        deletedCount++;                    }                } catch(e) {                    // 忽略不存在的sheet                }            }        }        MsgBox(`已按表单删除了${deletedCount}个工作表！！！`, 0, "操作完成");        return "工作表删除操作已完成";    } catch(e) {        MsgBox("执行出错: " + e.message, 0, "错误");        return "执行出错: " + e.message;    } finally {        // 恢复设置        wps.DisplayAlerts = true;        wps.ScreenUpdating = true;    }}