如何在没有excel的情况下将数据导出成excel文件

lujar

如何在没有excel的情况下将数据导出成excel文件

研究了半天，终于找出了如何在没有excel的情况下将数据导出成excel文件的方
法。

方法一：
在窗体上放置一个TADOQuery组件，通过OleDB连接到一个数据表，设定其SQL属性
为:
select * into mysheet in "c:\temp.xls" "Excel 8.0;" from Vendors 
此句SQL命令的意思是从表Vendors 中检索所有数据，把检索出来的数据保存到
c:\temp.xls 文件的mysheet表单中。"Excel 8.0;"指定了OLEDB使用的ISAM驱动
，分号不能省略。
设定active=true即可。
这种方式只要客户端电脑上有OLDB驱动即可，不过这种方式只能连接被OLEDB支持
的数据库，比如Access等。
方法二：
var I: Integer; 
Str: String; StrList: TStringList;
begin StrList := TStringList.Create; 
try 
with ADOTable1 do 
begin 
First; 
while not Eof do 
begin 
Str := ''; 
for I := 0 to FieldCount-1 do 
Str := Str + Fields[I].AsString + #9; 
StrList.Add(Str); 
Next; 
end; 
StrList.SaveToFile('test.xls'); 
end; 
StrList.Free; 
except 
StrList.Free; 
end;
end;
这种方式对客户端没有任何要求使用起来最方便。
欢迎光临小站：http://lincosoft.go.nease.net
里边有我的原创编程资源。