标题: [文本处理] 求助Xlsx格式EXCEL文件 合并成一个Excel [打印本页]
作者: haichuan5121 时间: 2020-7-30 09:55 标题: 求助Xlsx格式EXCEL文件 合并成一个Excel
同文件夹下几十个EXCEL文件全是单列数字;怎么合并成一个Excel;CSV合并这个不能用;- @echo off
-
- setlocal enabledelayedexpansion
-
- copy *.csv new.csv
-
- echo @@@@@@@@@@@@@合并成功!@@@@@@@@@@@@@'
-
- pause
复制代码
作者: WHY 时间: 2020-7-30 19:11
- @if(0)==(0) echo off
- pushd "%~dp0"
- dir /b *.xls | cscript //nologo //e:jscript "%~f0" "%~dp0"
- pause & exit
- @end
-
- var strPath = WSH.Arguments(0);
- var objExcel = new ActiveXObject('Excel.Application');
- var objNewBook = objExcel.WorkBooks.Add();
- objExcel.Visible = true;
- objExcel.DisplayAlerts = false;
- var n = 1;
-
- while(!WSH.StdIn.AtEndOfStream) {
- var strFile = strPath + WSH.StdIn.ReadLine();
- var objBook = objExcel.WorkBooks.Open(strFile);
- objBook.WorkSheets(1).UsedRange.Copy();
- objNewBook.WorkSheets(1).Range('A' + n).PasteSpecial();
- n += objBook.WorkSheets(1).UsedRange.Rows.Count;
- objBook.Close();
- }
- objNewBook.SaveAs(strPath + 'result.csv', 6);
- objNewBook.Close();
- objExcel.Quit();
复制代码
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |