Board logo

标题: [文本处理] 求助,如何将多个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 编辑
  1. @set @n=0; /* & echo off
  2. dir /b *.xls | cscript -nologo -e:jscript "%~0" "%~dp0"
  3. pause & exit/b & rem */
  4. var oExcel = new ActiveXObject("Excel.Application");
  5. oExcel.Visible = false
  6. while (!WScript.StdIn.AtEndOfStream) {
  7.     var f = WScript.StdIn.ReadLine();
  8.     var s = f.substr(0, f.lastIndexOf("."));
  9.     oExcel.WorkBooks.Open(WScript.Arguments(0) + f);
  10.     var count = oExcel.WorkSheets.Count
  11.     for (var i=1; i<=count; i++) {
  12.         var name = s + "_" + oExcel.WorkSheets(i).Name;
  13.         oExcel.WorkSheets(i).Name = name;
  14.     }
  15.     oExcel.ActiveWorkBook.Save();
  16.     oExcel.ActiveWorkBook.Close();
  17. }
  18. oExcel.Quit(); oExcel = null
复制代码





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