flashercs

删除列还是清空内容？

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');
复制代码

flashercs

回复 5# carter09


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

flashercs

回复 7# carter09


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

flashercs

回复 9# carter09

已修改了

flashercs

回复 13# carter09


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

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');
复制代码