Exporting to Excel Error

OZaM

I am currently using this code to export my report to excel:
Rpt.TextFileName := RptPath ;
Rpt.DeviceType := 'XLSReport' ;
Rpt.DefaultFileDeviceType := 'XLSReport' ;
Rpt.XLSSettings.ExportComponents := [ecText,ecRichText,ecImage,ecOther];
Rpt.XLSSettings.MergeAdjacentCells := true;
Rpt.ShowPrintDialog := False ;
Rpt.Print;

Rpt.ShowPrintDialog := true ;

it's working but not every time sometimes i give me this message error

''the file format and extension of (?*filename*) don't match, the file could be corrupted or unsafe. Unless you trust it's source don't open it. Do you want to open it anyway?"

bleone

I'm also having this same problem.