标题: [文本处理] 求助,如何将多个excel的多个sheet改名 [打印本页]
作者: yusmile0618 时间: 2014-6-9 15:57 标题: 求助,如何将多个excel的多个sheet改名
现在手上有几百个excel,每个excel都有5个sheet,
希望将每个excel中的sheet名改为excel文件名加上原有的sheet名
求高人帮助!
作者: DAIC 时间: 2014-6-9 20:21
BAT无法直接操作Excel
作者: apang 时间: 2014-6-11 11:20
本帖最后由 apang 于 2014-6-11 11:38 编辑
- @set @n=0; /* & echo off
- dir /b *.xls | cscript -nologo -e:jscript "%~0" "%~dp0"
- pause & exit/b & rem */
-
- var oExcel = new ActiveXObject("Excel.Application");
- oExcel.Visible = false
- while (!WScript.StdIn.AtEndOfStream) {
- var f = WScript.StdIn.ReadLine();
- var s = f.substr(0, f.lastIndexOf("."));
- oExcel.WorkBooks.Open(WScript.Arguments(0) + f);
- var count = oExcel.WorkSheets.Count
- for (var i=1; i<=count; i++) {
- var name = s + "_" + oExcel.WorkSheets(i).Name;
- oExcel.WorkSheets(i).Name = name;
- }
- oExcel.ActiveWorkBook.Save();
- oExcel.ActiveWorkBook.Close();
- }
- oExcel.Quit(); oExcel = null
复制代码
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |