QuickReport 报表转Word、Excel 文件(100分)

1.本人现用QuickReport 作报表，现在想将生成的报表转成Word、Excel格式的文件，应怎样做？
2.在QuickReport 在线帮助中有这样一段代码：
var
AExportFilter : TQRHTMLDocumentFilter;
begin
AExportFilter := TQRHTMLDocumentFilter.Create('REPORT.HTM');
try
MyReport.ExportToFilter(AExportFilter)
finally
AExportFilter.Free;
end;
end;
编译时总提示TQRHTMLDocumentFilter找不到，她包含在哪个单元文件中？

1、对于去QuickReport企业版，可以防止去QuickReport自己带的几个控件，直接就可以保存
成xls或者rtf文件了。
否则难度很高。
企业版可以到Delphi.mychangshu.com下载

2、你的哪个找不到的也是企业版包含的，呵呵。[][][]

quickreport 上有QRHTMLFilter1 控件
参考下吧
var
FileExt:string[5];
begin
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_stock.exporttoFilter(TQRHTMLDocumentFilter.Create(savedialog1.filename))
else
if FileExt='.TXT' then
rep_stock.exporttoFilter(TQRAsciiExportFilter.Create(savedialog1.filename))
else
if FileExt='.CSV' then
rep_stock.exporttoFilter(TQRCommaSeparatedFilter.Create(savedialog1.filename));
end;
end;

我已下载了一个QuickReport企业版，并引用了其中一个例子，
procedure MyForm.ButtonClick(Sender : TObject);
var
AExportFilter : TQRHTMLDocumentFilter;
begin
AExportFilter := TQRHTMLDocumentFilter.Create('REPORT.HTM');
try
MyReport.ExportToFilter(AExportFilter)
finally
AExportFilter.Free;
end;
end;
编译时总提示TQRHTMLDocumentFilter找不到，
我到底应怎样做，yzhshi，你能举个例子吗？

明天可以吗？今天有点困了，想回去了，明天一定实验一下，OK！

use QRExport

gz