在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
至于Word转换的可以参照http://topic.csdn.net/u/20090331/08/e6e7f6f5-95d8-4d92-8b76-67e23129bf6c.html 下面主要说说对Excel进行转换的(如果是对Excel进行转换帖子中的.js脚本有问题) 下面是对Excel进行转换的脚本: var files = WScript.Arguments; var fso = new ActiveXObject("Scripting.FileSystemObject"); var word = new ActiveXObject("Excel.Application"); var PDF = new ActiveXObject("PDFDistiller.PDFDistiller.1"); word.Workbooks.add(); word.ActivePrinter="MS Publisher Color Printer 在 LPT1:"; var docfile = files(0); var psfile = files(1) + fso.GetBaseName(files(0)) + ".ps"; var pdffile = files(1) + fso.GetBaseName(files(0)) + ".pdf"; var logfile = files(1) + fso.GetBaseName(files(0)) + ".log"; var doc = word.Workbooks.Open(docfile); //Excel文件转成PS文件; var xlsheet=doc.Worksheets(1); xlsheet.PrintOut(1, 2, 1,false,"MS Publisher Color Printer 在 LPT1:",true,true,psfile);//这个是打印机关于得到Excel默认打印机的VBA可以在网上搜,有很多 try{ doc.Close(0); //PS文件转成PDF文件; PDF.FileToPDF(psfile,pdffile,""); fso.GetFile(psfile).Delete();//删除PS脚本文件 fso.GetFile(logfile).Delete();//删除转换的日志文件 word.Quit(); WScript.Echo("isuccess");//成功 WScript.Quit(0); } catch(x) { word.Quit(); WScript.Echo("isfail");//失败 WScript.Quit(0); } 用这种方法进行转换出来了会有一点不足,还需要改进 |
请发表评论