excel
如何将数据库中的数据导出成EXCEL文件 问题点数：0、回复次数：6Top
1 楼richard_boy（风筝）回复于 2004-07-02 22:49:07 得分 0
什么数据库，如果是SQL用DTS。如是在程序中控制用
uses variants
var
ExcelApp,Sheet:olevariant;
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.visible:=true;
ExcelApp.workbooks.add;
ExcelApp.workbooks[1].worksheets[1].name:=head.title;
Sheet:=ExcelApp.workbooks[1].worksheets[1];Top
2 楼pulove（puloveli）回复于 2004-07-02 22:54:14 得分 0
sqlserver2000Top
3 楼fuyifan（冬冬，我永远爱你）回复于 2004-07-02 23:13:25 得分 0
看什么数据库了Top
4 楼postfxj（探索者）回复于 2004-07-03 09:17:24 得分 0
xlreport,什麼數據庫都可以方便導出Top
5 楼jakefj（夢幻天使）回复于 2004-07-03 10:22:17 得分 0
procedure TForm2.DataToExcel;
var
I,II: Integer;
begin
try
Excelapplication1.Visible[0]:=true;
try
Excelworkbook1.ConnectTo(Excelapplication1.Workbooks.Add(EmptyParam,0));
except
raise Exception.Create('鏈接到Excel文件出錯，可能是沒有安裝Excel文件');
end;
Excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);
begin //--1
ExcelWorksheet1.Name:=str;
with Excelworksheet1.QueryTables.Add(adoquery1.Recordset,Excelworksheet1.Range['A2',EmptyParam],EmptyParam) do
begin
FieldNames := False;
Refresh(False);
end; // with
finally
end;
end;Top
6 楼zgq19801123（小强）回复于 2004-07-03 10:29:35 得分 0
http://community.csdn.net/Expert/topic/3132/3132748.xml?temp=.8100855Top
