我想将数据表中的数据导入到EXCEL表格中，采用以下方式却不能实现，哪位朋友帮忙指导一下！

[true_afei]

var
StartRow,iCounter:integer;
Excelapp:OleVariant;
begin
Excelapp:=CreateOLEObject('Excel.Application');
Excelapp.appshow;//执行到这一步出错；如果建立的Word文档就可以，why！
StartRow:=4;
icounter:=0;
query1.open;//将query1对应的表内数据导入到EXCEL表中。
while not query1.Eof do
begin
for iCounter:=0 to query1.FieldCount-1 do
Excelapp.Cells[StartRow,iCounter+1]:=query1.Fields.Fields[iCounter].DisplayLabel;
StartRow:=StartRow+1;
query1.Next;
end;
end;

[kuangning]

var
StartRow,iCounter:integer;
Excelapp:OleVariant;
begin
Excelapp:=CreateOLEObject('excel.Application');
Excelapp.Visible := true ; ;//ok！
StartRow:=4;
icounter:=0;
query1.open;//将query1对应的表内数据导入到EXCEL表中。
Excelapp.workbooks.add ;
while not query1.Eof do
begin
for iCounter:=0 to query1.FieldCount-1 do
Excelapp.Cells(StartRow,iCounter+1):=query1.Fields.Fields[iCounter].DisplayLabel;
StartRow:=StartRow+1;
query1.Next;
end;
Excelapp.activeworkbook.saveas('kn.xls') ;
// Excelapp.activeworkbook.close(false);
end;

[true_afei]

kuangning(郎之间，穷人):
多谢！

[jhmaple]

OK