用quickreport可以另存为*.txt *.html
解决方案 »
- 关于win2003+IIS6+INTRAWEB 问题? 大侠们指点一二
- 关于Query连接DBGrid显示数据库删除提示 table is read only问题
- 如何在delphi中把一组数据先放到表中,然后通过“表参数”把这个表传到储过程里
- 将数据打包的问题(有声音,图象,命令 。。。)
- 改用Delphi调用动态库(原C#调用动态库)
- 如何删除的问题,在线等待
- Delphi6.0如何管理大文件
- 各位男俠女俠,我現將九陽真經公布,以示切磋之意...
- 关于职业道德
- 怎么读取注册表的键值?我按照Borland的说明做怎么不对呢?
- 如何嵌入OLE对象
- 看过李维的〈分布式电子商务篇〉的请快来帮帮忙!有分的呦!来的都有分,回答到的是高分!
unit ExcelTest;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls,db,DBTables, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Query1: TQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WriteDatasetToExcel(AQueryName: TQuery; AStrVar: String);
end;var
Form1: TForm1;implementationuses Comobj;{$R *.DFM}{ TForm1 }procedure TForm1.WriteDatasetToExcel(AQueryName: TQuery; AStrVar: String);
var
EclApp,WorkBook : Variant;
xlsFileName : String ;
I : Integer ;
column : Integer ;
Row : Integer ;
Fdate:TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
StrDate:String ;
StrDate1:String ;
Begin
Fdate:=now ;
DecodeDate(Fdate, Year, Month, Day);
DecodeTime(Fdate, Hour, Min, Sec, MSec);
StrDate:=formatdatetime('yyyy-mm-dd-hh-mm-ss',Fdate) ;
StrDate1:=formatdatetime('yyyy/mm/dd hh:mm:ss',Fdate) ;
If AStrVar='Excel文件测试' Then
Begin
xlsfilename :='Excel文件测试' ;
End ;Try
Begin
EclApp := CreateOleObject('Excel.Application');
WorkBook:=CreateOleObject('Excel.Sheet');
End
Except
ShowMessage('您的计算机上没有 Microsoft Excel!');
Exit;
end;
try
workBook:=EclApp.workBooks.Add ;
row:=2;
EclApp.Workbooks.Item[1].Activate;
eclApp.Cells.font.colorindex:=5 ;
EclApp.Activesheet.Cells(1,1):=AStrVar ;
For I := 1 To AQueryName.FieldCount Do
EclApp.Activesheet.Cells(2,I):=AQueryName.Fields[I-1].FieldName ;
If Not AQueryName.Active Then AQueryName.Active := True ;
AQueryName.First ;
While Not(AQueryName.Eof) do
begin
column:=1;
for i:=1 to AQueryName.FieldCount do
begin
eclApp.Cells.Item[row+1,column]:=AQueryName.fields[i-1].AsString;
column:=column+1;
end;
AQueryName.Next;
row:=row+1;
End ;
WorkBook.saveas(xlsFileName);
WorkBook.close;
WorkBook:=eclApp.workBooks.Open(xlsFileName);
if MessageDlg('xlsFileName'+'对该文件是否保存?',
mtConfirmation,[mbYes, mbNo], 0) = mrYes then
WorkBook.save
Else
workBook.Saved := True;
WorkBook.Close;
eclApp.Quit;
eclApp:=Unassigned;
except
ShowMessage('Excel 文件保存失败');
WorkBook.close;
eclApp.Quit; {释放VARIANT变量}
eclApp:=Unassigned;
end;
ShowMessage('EXCEL 文件保存完毕') ;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
WriteDatasetToExcel(query1,'Excel文件测试');
end;end.
http://www.csdn.net/Expert/TopicView1.asp?id=735262
我就是这样找的。
$(Delphi)\Demos\QuickRpt\Qr3//参考如下语句
uses QRExport;procedure TForm1.Button1Click(Sender: TObject);
var
AExportFilter : TQRHTMLDocumentFilter;
begin
// TQRHTMLDocumentFilter
// TQRAsciiExportFilter
// TQRTextFilter
AExportFilter := TQRHTMLDocumentFilter.Create('REPORT.HTM');
try
QuickRep1.ExportToFilter(AExportFilter)
finally
AExportFilter.Free;
end;
end;
。
不知道有没有更好的方法呢?谢谢大家还有zswang(伴水),我再试试。