求教各位QUCIKREP高手(50分)

  • 主题发起人 主题发起人 foxzzz
  • 开始时间 开始时间
F

foxzzz

Unregistered / Unconfirmed
GUEST, unregistred user!
有没有方法可以将quickrep里生成的 .QRP文件保存为excel形式呢?
或者是在调用quickrep控件时直接生成excel文件格式呢?
 
自己写程序,什么都要现成的,还有什么意思?
 
SaveDialog1.Filter := 'Text files (*.txt)|*.TXT|Htm files (*.htm)|*.HTM|Csv files(*.csv)|*.CSV';
if Savedialog1.Execute then

begin

FileExt:=AnsiUpperCase(ExtractFileExt(SaveDialog1.filename));
if (FileExt='.HTML') or (FileExt='.HTM') then

rep.exporttoFilter(TQRHTMLDocumentFilter.Create(savedialog1.filename))
else
if FileExt='.TXT' then

rep.exporttoFilter(TQRAsciiExportFilter.Create(savedialog1.filename))
else
if FileExt='.CSV' then

rep.exporttoFilter(TQRCommaSeparatedFilter.Create(savedialog1.filename));
end;
 
DELPHI中的QUICKREP没有提供输出EXCEL的东西。可输出为HTML再用EXCEL直接打开。
在QUICKREP的窗体上放一个TQRHTMLFilter,或USE QREXPORT,然后:

procedure TForm1.Button1Click(Sender: TObject);
var
AExportFilter : TQRHTMLDocumentFilter;
begin

AExportFilter := TQRHTMLDocumentFilter.Create('REPORT.HTM');
try
QuickRep1.ExportToFilter(AExportFilter)
finally
AExportFilter.Free;
end;

end;
 
后退
顶部