一段代码,帮我看看.谢谢各位,在线等,急

[qdmis]

我用以下代码实现table中的数据导入到电子表格中,可是太慢.
还有谁能帮我写段电子表格导入到oracle中的代码,万分感谢!


uses ComObj;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MSExcel:Variant;
i,j:integer;
begin
SaveDialog1.Filter:='.xls|.xls';
SaveDialog1.DefaultExt:='.xls';
if SaveDialog1.Execute then
begin
MsExcel:=createOLEobject('excel.application');
MsExcel.workBooks.add;
Msexcel.visible:=false;
with DataSource1.Dataset do
begin
first;
for i:=0 to fieldcount-1 do
begin
Msexcel.cells[1,i+1].value:=fields[i].DisplayLabel ;
end;
j:=2;
while not eof do
begin
for i:=0 to fieldcount-1 do
begin
Msexcel.cells[j,i+1].numberformat:='@';
Msexcel.cells[j,i+1].value:=fields[i].AsString ;
end;
inc(j);
next;
end;
end;
MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName);
MSExcel.ActiveWorkBook.Saved:=True;
MSExcel.Quit;
end;

end;

[jacklost]

这个肯定不行！！
用ADO JET4.0 与EXCEL 建立连接（把EXCEL当成一个数据库）
然后可以直接写SQL语句导入ORACLE！
速度非常快。

[飞天揽月]

可以直接写excel