Report by script open in Excel

procedure FmReport_BtTest_OnClick (Sender: string; var Cancel: boolean);
var
    frxDBDataset1, : TfrxDBDataset;
    report : TDataSet;
begin
   SQLQuery('SELECT xy from xy where xy');
    frxDBDataset1 := TfrxDBDataset.Create(Form1);
    frxDBDataset1.UserName        := 'report';
    frxDBDataset1.CloseDataSource := True;
    frxDBDataset1.OpenDataSource  := True;
    frxDBDataset1.DataSet         := report;

    Form1.frxReport.Clear;
    Form1.frxReport.DataSets.Clear;
    Form1.frxReport.DataSets.Add(frxDBDataset1);

  //    DESIGN MODE - WORKING OK
 //  Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\test.fr3');
 //  Form1.frxReport.DesignReport;

   // OPEN REPORT IN Excel  NOT WORKING
    Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\test.fr3');
    Form1.frxReport.PrepareReport();
    Form1.frxRTFExport1.FileName := ChangeFileExt(GetTempFileName,'.xlsx');
    Form1.frxRTFExport1.ShowDialog := False;
    Form1.frxReport.Export(Form1.frxRTFexport1);

    // PREVIEW MODE  - WORKING OK
 //     frxDBDataset1.DataSet.Close;
 //    Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\test.fr3');
 //    Form1.frxReport.ShowReport;

    frxDBDataset1.Free;

end;