Board logo

标题: [文本处理] 求助Xlsx格式EXCEL文件 合并成一个Excel [打印本页]

作者: haichuan5121    时间: 2020-7-30 09:55     标题: 求助Xlsx格式EXCEL文件 合并成一个Excel

同文件夹下几十个EXCEL文件全是单列数字;怎么合并成一个Excel;CSV合并这个不能用;
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. copy *.csv new.csv
  4. echo @@@@@@@@@@@@@合并成功!@@@@@@@@@@@@@'
  5. pause
复制代码

作者: WHY    时间: 2020-7-30 19:11

  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. var strPath = WSH.Arguments(0);
  7. var objExcel = new ActiveXObject('Excel.Application');
  8. var objNewBook = objExcel.WorkBooks.Add();
  9. objExcel.Visible = true;
  10. objExcel.DisplayAlerts = false;
  11. var n = 1;
  12. while(!WSH.StdIn.AtEndOfStream) {
  13.     var strFile = strPath + WSH.StdIn.ReadLine();
  14.     var objBook = objExcel.WorkBooks.Open(strFile);
  15.     objBook.WorkSheets(1).UsedRange.Copy();
  16.     objNewBook.WorkSheets(1).Range('A' + n).PasteSpecial();
  17.     n += objBook.WorkSheets(1).UsedRange.Rows.Count;
  18.     objBook.Close();
  19. }
  20. objNewBook.SaveAs(strPath + 'result.csv', 6);
  21. objNewBook.Close();
  22. objExcel.Quit();
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2