WPS宏合并多表格指定Sheet页内容（去多余表头版）

function 合并表格() {
    
    //合并文件为C盘下面名为test的文件夹
    var folderPath = "C:\\Users\\li_dawei\\Desktop\\周单\\36周离线\\";
    var fileName = Dir(folderPath +"\\*.*");
    
    if(fileName == ""){
        alert("文件为空，无法执行");
    }
        
    //创建合并表格，如果合并文件存在会报错，这里没做校验删除
    var newWork = Workbooks.Add();
    
    //创建指定Sheet页名称的新Sheet页
    var arr = ["500kV","换流站","特高压"];
    
    //获取工作表对象
        var ws = newWork.Worksheets;
    
        //创建对应3个sheet页
        var ws1 =  ws.Add();
        var ws2 =  ws.Add();
        var ws3 =  ws.Add();
        ws1.Name = arr[0];
        ws2.Name = arr[1];
        ws3.Name = arr[2];
    
        
    var introw = 1;
    var tgyrow = 1;
    var hlzrow = 1;
    var one = 1;
    while(fileName != ""){
        
        // 打开工作簿
        var workBook = Workbooks.Open(folderPath + "\\" + fileName);
        
        //获取打开的表格的Sheet页名称
        var openworksheet = workBook.Worksheets;
        var openworksheetcount = openworksheet.Count;
      
              
            for(x = 1; x < openworksheetcount+1; x++){
            var openworksheetname = openworksheet.Item(x).Name;
                // 执行复制代码
                //就一个Sheet页直接复制，后面的Sheet页从第二行开始复制
                var lastCol = workBook.Worksheets(openworksheetname).Cells(1, workBook.Worksheets(openworksheetname).Columns.Count).End(xlToLeft).Column;
                var lastRow = workBook.Worksheets(openworksheetname).Cells(workBook.Worksheets(openworksheetname).Rows.Count,1).End(xlUp).Row;
                
                if(openworksheetname == "500kV"){
                    
                    one = introw;
                    introw = 2;
                }else if(openworksheetname == "特高压"){
                    one = tgyrow;
                    tgyrow = 2;
                }else{
                    one = hlzrow;
                    hlzrow = 2;
                }
                
                var startRow = newWork.Worksheets(openworksheetname).Cells(newWork.Worksheets(openworksheetname).Rows.Count,1).End(xlUp).Row;
                workBook.Worksheets(openworksheetname).Range(Cells(one,1),Cells(lastRow,lastCol)).Copy(newWork.Worksheets(openworksheetname).Cells(startRow+1, 1));       
        }