[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 flashercs 于 2018-10-11 17:51 编辑

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

TOP

回复 10# flashercs


    求代码

TOP

返回列表