FastReport中导出Excel文件出错......(200分)

  • 主题发起人 主题发起人 roclei
  • 开始时间 开始时间
R

roclei

Unregistered / Unconfirmed
GUEST, unregistred user!
本人想通过FastReport制作的OCX组件将报表转存为excel文件,在组件发布后发现不能正常导出!!!
现象是在没有安装delphi环境的系统中,导出文件时出错!!!估计是打包时需要delphi的某个文件,不知哪位高人碰到过类似问题,望不吝赐教!!!
 
看看对你有用否?
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1754027
 
换为RM试试
 
fastreport倒出本身就不稳定,你在转出前没有生成报表,就是如下
if frReport1.PrepareReport then //在此之前就当已经将报表文件装入
frReport1.ExportTo(frRTFExport1,'d:/ATest.doc')
else
showmesage('报表生成错误!');

如果还是不成的话,建议用其他方法导出,毕竟到成EXCEL非常容易。
 
问题是我现在已经完成了整个系统的开发工作,所有报表的格式布局已经全部开发完成,如果要重新编写导出Excel部分的话,工作量将会很大;且如果直接把DataSet导出到Excel,报表的格式也不能保存,因此希望能够利用FastReport自身的功能达到这个效果!不过还是先谢谢楼上兄弟们的大力帮助!!!
 
下面的方法对于数据量大时,导出Excel的速度较快。而通过dbgrid导出Excel,数据量大时,很慢,有时会死机。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2368382
用dbgrideh导出excel,修改程序也不是很麻烦。
PROCEDURE Tfmoupt.btnOUtClick(Sender: TObject);
BEGIN
sdlg.DefaultExt := 'XLS';
sdlg.Filter := '*.XLS|*.XLS';
sdlg.FileName := '0'+zzpfrm.bmcb.text+'.xls';
IF sdlg.Execute THEN
BEGIN
IF sdlg.FileName <> '' THEN
BEGIN
SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, Adbg, sdlg.FileName,
true);
END;
END;
application.MessageBox(pchar('成功输出数据到' + sdlg.filename + '!'), '恭喜',
0);
END
 
这样描述吧,我现在在用asp做一个物业管理系统,报表部分我用FastReport做的OCX组件,现在客户提出要把报表转为Excel格式文件,正好FastReport提供了这个功能,所以我就把FastReport的导出功能加入到OCX组件包中,但发现在没有Delphi环境的电脑中导出时报错,因此请各位大师指点一二。而不是寻找DataSet转Excel的方法。
 
时间有点长了,再过两天如果没有好的方法,我就结贴了哈![:(]
 
你的意思是在有DELPHI的环境中不出错了?
 
的确如此!
 
那你不如先试一下看你的FR控件在不转换为OCX的情况下,随便做一个EXE看能不能脱离DELPHI的环境运行?
 
刚试了,在脱离Delphi环境下的Exe文件执行没有问题!
 
没有用导出EXCEL也没问题?
 
也没有问题呢![:(]
 
多人接受答案了。
 
后退
顶部