JS-WPS 自动化办公(5)多Sheet整合

function copyDataFromSheet(workbook, sheetName) {    workbook.Sheets(sheetName).Activate();    Range("A2:X500").Select();    Selection.Copy(undefined); // 仅复制值（不带格式）}

function 粘贴到汇总(){    // 激活当前工作簿（取第一个打开的工作簿）    let workbook = Application.Workbooks.Item(1);    let workbookName = workbook.Name;    console.log("已激活工作簿: " + workbookName);  // 在控制台输出当前工作簿名称，用于确认操作对象    // 获取当前工作簿中所有工作表的数量    let sheetCount = workbook.Sheets.Count;    // 创建一个空数组，用于存储所有工作表的名称    let SheetArray = [];    // 定义目标汇总表的名称，后续将跳过此表不进行复制    let TargetSheetName = '汇总';    // 循环遍历每一个工作表（索引从1开始，因为Excel工作表索引是1-based）    for (let i = 1; i <= sheetCount; i++)     {        // 获取第i个工作表的名称        let sheetName = workbook.Sheets(i).Name;        // 激活该工作表（虽然此处激活对后续无直接影响，但保留原逻辑）        workbook.Sheets(sheetName).Activate();        // 将当前工作表名称添加到SheetArray数组中        SheetArray.push(sheetName);    }    // 遍历所有已收集的工作表名称    for (const item of SheetArray) {        // 如果当前工作表名称不是“汇总”，则进行数据复制操作        if(item != TargetSheetName)        {            // 在控制台打印当前正在处理的工作表名称（用于调试或进度跟踪）            console.log(item);             // 先激活“汇总”工作表，目的是为了查找A列中第一个空单元格的位置            workbook.Sheets(TargetSheetName).Activate();            // 声明变量QueryResult，用于记录找到的空单元格地址（如"A10"）            let QueryResult;            // 从第1行开始向下逐行检查A列，最多检查到第199,999行（防止无限循环）            for(let Query = 1; Query < 200000; Query++)            {                // 读取A列第Query行的值（.Value2返回原始值，不带格式）                QueryResult = Range("A" + Query).Value2;                // 在控制台输出当前单元格的值，便于调试判断是否为空                console.log("是否为空: " + QueryResult);                // 如果该单元格为空（在JavaScript环境中，Excel空单元格通常返回undefined）                if(QueryResult == undefined)                {                    // 将空单元格的地址（如"A5"）赋值给QueryResult                    QueryResult = 'A' + Query;                    // 找到第一个空单元格后立即退出循环                    break;                }            }                    // 在控制台输出最终确定的粘贴起始位置            console.log("空的单元格 QueryResult  " + QueryResult);                // 激活当前要处理的源工作表（即非“汇总”的那个表）            workbook.Sheets(item).Activate();            // 选中固定区域：从A2到X500（共499行，24列），作为要复制的数据范围            Range("A2:X500").Select();            // 执行复制操作（undefined表示使用默认剪贴板模式）            Selection.Copy(undefined);            // 再次激活目标“汇总”工作表，准备粘贴            workbook.Sheets(TargetSheetName).Activate();            // 选中之前找到的空单元格（作为粘贴的起始位置）            Range(QueryResult).Select();            // 执行选择性粘贴：仅粘贴数值（不带公式、格式等）            // 参数说明：            //   xlPasteValues：只粘贴值            //   xlPasteSpecialOperationNone：不进行运算（如加、减等）            //   false：不跳过空单元格            //   false：不转置行列            Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);        }    }}