[文本处理] 求一个， bat命令批量删除多个excel 内的指定 列

carter09

拜托删除a b d e 整列  而且是多个文件的

hyj

回复 10# flashercs


    求代码

flashercs

printExcel.js

var fso,
    colFiles,
    file,
    oExcelApp,
    oWorkbook,
    oSheet;
oExcelApp = new ActiveXObject('Excel.Application');
// oExcelApp.DisplayAlerts = false;
fso = new ActiveXObject('Scripting.FileSystemObject');
colFiles = new Enumerator(fso.GetFolder(fso.GetParentFolderName(WScript.ScriptFullName)).Files);
for (; !colFiles.atEnd(); colFiles.moveNext()) {
    file = colFiles.item().Path;
    if ('xlsx' !== fso.GetExtensionName(file).toLowerCase()) continue;
    try {
        oWorkbook = oExcelApp.Workbooks.Open(file, 3, true);
        oSheet = oWorkbook.Worksheets(1);
        oSheet.PageSetup.Orientation = 2;
        oSheet.PrintOut();
        oWorkbook.Close(false);
    } catch (err) {
        WScript.Echo(file + '\n' + err.message);
    }
}
// oExcelApp.DisplayAlerts = true;
oExcelApp.Quit();
WScript.Echo('printing complete');
复制代码

carter09

就是一个文件夹内的excel文件（很多文件）所以只需要打印Sheet1就行，最好能调解打印版面 用横面打印

flashercs

回复 13# carter09


    打印所有工作表还是只打印Sheet1 ?
打印几份copy ?

carter09

回复 4# flashercs


   
不好意思 我又来麻烦你了 这些做好的文件 能批量打印吗？文件实在太多了。拜托
批量打印文件夹内的excel文件（很多文件）

carter09

不好意思 我又来麻烦你了 这些做好的文件 能批量打印吗？文件实在太多了。拜托
批量打印文件夹内的excel文件（很多文件）

carter09

太感谢了 万分感谢

flashercs

回复 9# carter09

已修改了

carter09

是的  太感谢了  处理当前文件夹内所有的excel文件

flashercs

回复 7# carter09


    处理当前文件夹内所有的excel文件？

carter09

不好意思了  最好是直接把JS文件、或是BAT文件拖进文件夹 双击就可以批量删除。拜托了

flashercs

回复 5# carter09


    只删 a b d e四列啊，删除列后右侧列左移

carter09

不好意思 你这个是 固定文件名的 我这里文件名字都是不统一的 太多了 实在没法子 一个一个添加文件名字 麻烦能再简单点吗？最好是直接把JS文件、或是BAT文件拖进文件夹 双击就可以批量删除。拜托了

flashercs

删除列.js

var fso,
    colFiles,
    file,
    aCols = [1, 2, 4, 5],
    oExcelApp,
    oWorkbook,
    oSheet,
    j;
oExcelApp = new ActiveXObject('Excel.Application');
oExcelApp.DisplayAlerts = false;
fso = new ActiveXObject('Scripting.FileSystemObject');
colFiles = new Enumerator(fso.GetFolder(fso.GetParentFolderName(WScript.ScriptFullName)).Files);
for (; !colFiles.atEnd(); colFiles.moveNext()) {
    file = colFiles.item().Path;
    if ('xlsx' !== fso.GetExtensionName(file).toLowerCase()) continue;
    try {
        oWorkbook = oExcelApp.Workbooks.Open(file);
        oSheet = oWorkbook.Worksheets(1);
        for (j = aCols.length - 1; j >= 0; --j) {
            oSheet.Columns(aCols[j]).Delete(-4159);
        }
        oWorkbook.Close(true);
    } catch (err) {
        WScript.Echo(file + '\n' + err.message);
    }
}
oExcelApp.DisplayAlerts = true;
oExcelApp.Quit();
WScript.Echo('Mission complete');
复制代码