数据导入到Excel 2005中的问题 ( 积分: 50 )

Excel := CreateOleObject('Excel.Application');
Excel.Visible := False;
Excel.Workbooks.Add;
Excel.WorkSheets[1].Activate;
for I := 1 to LsvOpenLog.Columns.Count do
begin
Application.ProcessMessages;
Excel.Cells.Item[1, I] := LsvOpenLog.Columns[I - 1].Caption;
end;

导入到Excel2000正常，导入到2005不正常，请问这是什么原因？

Excel := CreateOleObject('Excel.Application');
Excel.Visible := False;
Excel.Workbooks.Add;
Excel.WorkSheets[1].Activate;
for I := 1 to LsvOpenLog.Columns.Count do
begin
Application.ProcessMessages;
Excel.Cells.Item[1, I] := LsvOpenLog.Columns[I - 1].Caption;
end;

导入到Excel2000正常，导入到2005不正常，请问这是什么原因？

换种方法试试
SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,LsvOpenLog,'file.xls', True);
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.visible := true;
ExcelApp.WorkBooks.Open('file.xls');

我没有用到DBGridEh控件，这样可以吗？
谢谢！