求一个， bat命令批量删除多个excel 内的指定 列

flashercs

printExcel.js

1. var fso,
   
2.     colFiles,
   
3.     file,
   
4.     oExcelApp,
   
5.     oWorkbook,
   
6.     oSheet;
   
7. oExcelApp = new ActiveXObject('Excel.Application');
   
8. // oExcelApp.DisplayAlerts = false;
   
9. fso = new ActiveXObject('Scripting.FileSystemObject');
   
10. colFiles = new Enumerator(fso.GetFolder(fso.GetParentFolderName(WScript.ScriptFullName)).Files);
    
11. for (; !colFiles.atEnd(); colFiles.moveNext()) {
    
12.     file = colFiles.item().Path;
    
13.     if ('xlsx' !== fso.GetExtensionName(file).toLowerCase()) continue;
    
14.     try {
    
15.         oWorkbook = oExcelApp.Workbooks.Open(file, 3, true);
    
16.         oSheet = oWorkbook.Worksheets(1);
    
17.         oSheet.PageSetup.Orientation = 2;
    
18.         oSheet.PrintOut();
    
19.         oWorkbook.Close(false);
    
20.     } catch (err) {
    
21.         WScript.Echo(file + '\n' + err.message);
    
22.     }
    
23. }
    
24. // oExcelApp.DisplayAlerts = true;
    
25. oExcelApp.Quit();
    
26. WScript.Echo('printing complete');
    

复制代码

hyj

回复 10# flashercs


    求代码