如何利用Fastreport將報表導出到EXCEL文件?

Question

如何利用Fastreport控件將報表內容導出到EXCEL文件?
我利用frxReport1.Export方法導出的是空文件,但數據控件中有數據,報表預覽有數據.
我要實現的方法是在編程中實現報表導出,而不是在預覽中保存為EXCEL文件.
謝謝

Answer 1

第一个问题：
const
  CM_RESTORE = WM_USER + $1000;var
  RvHandle : hWnd;
{$R *.res}begin
   RvHandle := FindWindow('系统', NIL);
  if RvHandle > 0 then
  begin
    Application.MessageBox('您的系统中已经有本程序正在运行！','系统提示',MB_OK+MB_ICONERROR+MB_SYSTEMMODAL);
    PostMessage(RvHandle, CM_RESTORE, 0, 0);
    Exit;
  end;
  Application.Initialize;
  Application.Title := '系统';
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.//主窗体
Unit Main
 const
  CM_RESTORE = WM_USER + $1000;
 public
    procedure CreateParams(var Params: TCreateParams); override;
    Procedure RestoreRequest(var message: TMessage); message CM_RESTORE;第二个问题：
if not Assigned(Form2) then

Answer 2

Sorry
俺本来是发到另一个问题的，结果搞错了
帮你顶

Answer 3

这样吧，在窗体上放置一个frReport1,一个frOLEExcelExport1
假如现在点击Button1时导出报表到Excel
procedure TForm1.Button1Click(Sender: TObject);
begin
  frReport1.ExportTo(frOLEExcelExport1,'c:\.xls');
end;
这样是可行的！！

Answer 4

这个问题我自己解决了,我想问另外一个问题:
如何将报表文件保存到MS SQL 和 ORACLE表中,又如何从MS SQL 和 ORACLE表中调出文件?
例如:我已经做好了一个报表文件test.frf,我如何将其保存到MS SQL 和 ORACLE表中,在使用时又如何调出?
谢谢!

Answer 5

frReport1.ExportTo(frOLEExcelExport1,'c:\.xls');
导出或Excel是个空文件
不知道怎么回事！！
求解！！！

Answer 6

在fastreport3.03中，这个问题很简单的，只需在form1里加一个fast report 3 exports里的frxXLSExport1控件即可，在打印预览里，即可输出到excel表里