求助Xlsx格式EXCEL文件 合并成一个Excel

haichuan5121

同文件夹下几十个EXCEL文件全是单列数字；怎么合并成一个Excel；CSV合并这个不能用；

1. @echo off
   
2. 
   
3. setlocal enabledelayedexpansion
   
4. 
   
5. copy *.csv new.csv
   
6. 
   
7. echo @@@@@@@@@@@@@合并成功！@@@@@@@@@@@@@'
   
8. 
   
9. pause

复制代码

WHY

1. @if(0)==(0) echo off
   
2. pushd "%~dp0"
   
3. dir /b *.xls | cscript //nologo //e:jscript "%~f0" "%~dp0"
   
4. pause & exit
   
5. @end
   
6. 
   
7. var strPath = WSH.Arguments(0);
   
8. var objExcel = new ActiveXObject('Excel.Application');
   
9. var objNewBook = objExcel.WorkBooks.Add();
   
10. objExcel.Visible = true;
    
11. objExcel.DisplayAlerts = false;
    
12. var n = 1;
    
13. 
    
14. while(!WSH.StdIn.AtEndOfStream) {
    
15.     var strFile = strPath + WSH.StdIn.ReadLine();
    
16.     var objBook = objExcel.WorkBooks.Open(strFile);
    
17.     objBook.WorkSheets(1).UsedRange.Copy();
    
18.     objNewBook.WorkSheets(1).Range('A' + n).PasteSpecial();
    
19.     n += objBook.WorkSheets(1).UsedRange.Rows.Count;
    
20.     objBook.Close();
    
21. }
    
22. objNewBook.SaveAs(strPath + 'result.csv', 6);
    
23. objNewBook.Close();
    
24. objExcel.Quit();

复制代码