ASP.NET控制Word/EXCEL转换成PDF格式

至于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); 


用这种方法进行转换出来了会有一点不足,还需要改进 

posted @ 2009-04-13 13:22  雪莱·亨尼格  阅读(1278)  评论(0编辑  收藏  举报