＋设为首页 ＋添加到收藏夹
try
excelapplication1.Connect;
except
messagedlg(是否正确安装了Excel?,mtError,[mbok],0);
abort;
end;
query1.first;
ExcelApplication1.visible[0]:=true;
ExcelApplication1.caption:=打印;
ExcelApplication1.workbooks.add(ExtractFilePath(Application.ExeName)+资料.xlt,1);
ExcelWorkbook1.connectto (ExcelApplication1.workbooks[1]);
ExcelWorksheet1.connectto (ExcelWorkbook1.worksheets[1] as _worksheet);
//插入数据
begin
i:=0;
row:=0;
column:=0;
row:=4;
while not(query1.eof) do
begin
column:=1;
for i:=1 to 8 do
begin
ExcelWorksheet1.cells.item[row,column]:=query1.fields[i-1].asstring;
column:=column+1;
end;
query1.next;
row:=row+1;
end;
执行上面代码后第一次调用EXCEL时数据导出正常，如第二次调用则显示在第一次调用的工作表里，但还能打开一个新的工作表，只是没有数据，是什么原因，请各位帮忙!!!
我不懂，帮你up 一下！
up
帮你up
只看见了excelapplication1.Connect;
不晓得要不要断开。
