WPS宏实现Sheet页合并功能

把表格中N个Sheet页数据合并成一个新的Sheet页

function 合并Sheet页() {
    
    //获取工作表对象
    var ws = ThisWorkbook.Worksheets;
    
    //创建名称为 合并页 的Sheet页，如果存在名称叫合并页的Sheet页，这里会报错，没做判断删除
    var ws1 =  ws.Add();
    ws1.Name = "合并页";
    
    //先把表头复制过去
    ws.Item(2).Cells(1,1).Rows.EntireRow.Copy(ws1.Cells(1, 1));

     
    //获取所有Sheet页对象
    var worksheetObjects = {};
    var sheetNum = ws.Count;
    //console.log("Sheet页数量："+sheetNum);
    //这里i从2开始，把新创建的合并页抛出去
    for(i = 2; i < sheetNum+1; i++){
        var sheetName = ws.Item(i).Name;
        //console.log("第"+i+"个"+"Sheet页名称："+sheetName);
        worksheetObjects[sheetName] = ws.Item(sheetName);    
        
        //每个Sheet页从第二行开始复制