高手请进,dbgrid导出excel的程序为什么数据不能插入?
var
i,j,row,column:integer; //定义用于控制的单元格的变量
begin
try
outputApplication.connect;
Except
application.MessageBox('Excel 2000 是否已经正确安装','提示');
exit;
end;
outputApplication.Visible[0]:=true;
outputApplication.Caption:='统计数据;
outputApplication.Workbooks.Add(NULL,0);
outputApplication.SheetsInNewWorkbook[0]:=1;
outputApplication.Workbooks.Add(emptyParam,0);
outputWorkbook.ConnectTo(outputApplication.Workbooks[1]);
outputWorksheet.ConnectTo(outputWorkbook.Worksheets[1] as _Worksheet);
for i:=1 to outputGrid.FieldCount do
begin
outputWorksheet.Cells.Item[1,i]:=outputGrid.Fields[i-1].DisplayLabel;
//showmessagefmt('第一列的值是:%s',[outputWorksheet.Cells.Item[1,i]]);
end;
row:=2;
//delbaseQuery.First;
for i:=1 to delbaseQuery.RecordCount do
begin
column:=1;
for j:=1 to outputGrid.FieldCount do
begin
outputWorksheet.Cells.Item[row,column]:=delbaseQuery.Fields[j-1].AsString;
//showmessagefmt('第一列的值是:%s',[outputWorksheet.Cells.Item[row,column]]);
column:=column+1;
end;
row:=row+1;
delbaseQuery.Next;
end;
数据赋值都正确,excel就是显示不了worksheet中的数据,急!急!