[文本处理] 求助，如何将多个excel的多个sheet改名

yusmile0618

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

求高人帮助！

DAIC

BAT无法直接操作Excel

apang

@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
复制代码