求助，如何将多个excel的多个sheet改名

yusmile0618

现在手上有几百个excel,每个excel都有5个sheet,
希望将每个excel中的sheet名改为excel文件名加上原有的sheet名

求高人帮助！

DAIC

BAT无法直接操作Excel

apang

1. @set @n=0; /* & echo off
   
2. dir /b *.xls | cscript -nologo -e:jscript "%~0" "%~dp0"
   
3. pause & exit/b & rem */
   
4. 
   
5. var oExcel = new ActiveXObject("Excel.Application");
   
6. oExcel.Visible = false
   
7. while (!WScript.StdIn.AtEndOfStream) {
   
8.     var f = WScript.StdIn.ReadLine();
   
9.     var s = f.substr(0, f.lastIndexOf("."));
   
10.     oExcel.WorkBooks.Open(WScript.Arguments(0) + f);
    
11.     var count = oExcel.WorkSheets.Count
    
12.     for (var i=1; i<=count; i++) {
    
13.         var name = s + "_" + oExcel.WorkSheets(i).Name;
    
14.         oExcel.WorkSheets(i).Name = name;
    
15.     }
    
16.     oExcel.ActiveWorkBook.Save();
    
17.     oExcel.ActiveWorkBook.Close();
    
18. }
    
19. oExcel.Quit(); oExcel = null

复制代码