excel2pdf（新人请多多指教）

h20060304

[AAuto] 纯文本查看 复制代码

import win.ui;
/*DSG{{*/
mainForm = win.form(text="一键转PDF";right=499;bottom=299;max=false)
mainForm.add(
btnChoice={cls="button";text="…";left=312;top=24;right=362;bottom=74;font=LOGFONT(h=-22);z=1};
btnExcel2Pdf={cls="button";text="一键转PDF";left=312;top=120;right=392;bottom=170;z=3};
staticDir={cls="static";text="请选择要转PDF的Excel文件";left=8;top=24;right=308;bottom=74;bgcolor=16777215;border=1;center=1;color=255;z=2}
)
/*}}*/

Excel2Pdf=function(path,...){
	import com.excel;
	var excel,err = com.excel();
	assert(excel,err);
	excel.alerts = false;//关闭所有操作提示
	var book = excel.Open(path);
	pdfName = string.split(path,'.')[[1]]+".pdf"
	book.ExportAsFixedFormat(0 /*xlTypePDF*/,pdfName);
	book.close();
	excel.Quit();
}
mainForm.btnChoice.oncommand = function(id,event){
	import fsys.dlg;
	path = fsys.dlg.open("Excel文件|*.xls;*.xlsx","请选择Excel文件",,mainForm);
	mainForm.staticDir.text = path;
}
mainForm.btnExcel2Pdf.oncommand = function(id,event){
	Excel2Pdf(path);
}
mainForm.show();
win.loopMessage();