【WPS JSA】遍历多簿指定表生成新簿并表重命名

function 遍历多簿指定表生成新簿并表重命名() {    // 关闭屏幕更新以提高性能，避免闪烁    Application.ScreenUpdating = false;    // 错误捕获，便于调试    try {        const currentWorkbook = Application.ThisWorkbook;        const path = currentWorkbook.Path + Application.PathSeparator; // 跨平台路径分隔符        const currentFileName = currentWorkbook.Name;        // 新建目标工作簿        let newWorkbook = Application.Workbooks.Add();        let file = Dir(path + "*.xlsx"); // 遍历xlsx文件，如果是其他扩展名，修改xlsx为xls        const sheetIndex = 1; // 要复制的工作表索引（第2个，索引从0开始）        // 用于记录处理结果        let successCount = 0;        let skipCount = 0;        let errorFiles = [];        while (file !== "") {            // 跳过当前工作簿和临时文件            if (file === currentFileName || file.indexOf("~$") === 0) {                file = Dir();                continue;            }            // 打开工作簿            let workbook = null;            try {                workbook = Application.Workbooks.Open(path + file);            } catch (e) {                // 如果文件损坏或无法打开，记录并跳过                errorFiles.push(file + "（无法打开）");                file = Dir();                continue;            }            // 检查指定索引的工作表是否存在            if (workbook.Sheets.Count < sheetIndex) {                workbook.Close(false);                skipCount++;                file = Dir();                continue;            }            const sheet = workbook.Sheets.Item(sheetIndex);            // 重命名工作表：取原文件名的前6位 + 原工作表名，并限制总长度不超过31字符            let newSheetName = (file.slice(0, 6) + sheet.Name).slice(0, 31);            sheet.Name = newSheetName;            // 将工作表复制到新工作簿的最后            // 参数说明：第一个参数为 Before（此处传 null 表示不指定），第二个参数为 After（指定最后一个工作表之后）            sheet.Copy(null, newWorkbook.Worksheets.Item(newWorkbook.Worksheets.Count));            workbook.Close(false); // 不保存关闭原工作簿            successCount++;            file = Dir();        }        // 保存汇总工作簿到当前文件夹        // 构造保存路径：当前文件夹 + "汇总表.xlsx"        const savePath = path + "汇总表.xlsx";        // 如果已存在同名文件，先删除（避免保存冲突）        try {            if (Dir(savePath) !== "") {                // 使用 Kill 方法删除已存在文件                Kill(savePath);            }        } catch (e) {            // 如果删除失败，跳过（可能是文件被占用）        }        // 保存新工作簿（文件格式为 xlsx）        newWorkbook.SaveAs(savePath, 51); // 51 对应 xlOpenXMLWorkbook（.xlsx）               // 恢复屏幕更新        Application.ScreenUpdating = true;        // 弹出完成提示        let msg = "处理完成！\n";        msg += "成功复制工作表数：" + successCount + "\n";        msg += "跳过的文件数（无指定工作表）：" + skipCount + "\n";        if (errorFiles.length > 0) {            msg += "以下文件打开失败：\n" + errorFiles.join("\n");        }        msg += "\n汇总工作簿已保存至：\n" + savePath;        alert(msg);    } catch (e) {        // 捕获全局错误并显示        Application.ScreenUpdating = true;        alert("程序运行出错：\n" + e.message);    }}