Экспорт дбгрид в Excel

[reihtmonbern]

Здравствуйте ещё раз подскажите мне пожалуйста как мне исправить вот этот код

var
ExcelApp : variant;
row :integer;
col:integer;
begin
dbgrid1.DataSource.DataSet.First;

ExcelApp:=CreateOLEObject('Excel.Application'); 
ExcelApp.WorkBooks.add; // !!!!!!!!!!!!!!!!!!!!!!!!!!МНЕ НУЖНО открыть документ  WorkBooks.Open['C:\1.XLS'];желательно что бы можно было ещё и лист открыть №3
ExcelApp.visible:=true;  

ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'лист 3'; 

for col :=0 to DBGrid1.Columns.Count-1 do
ExcelApp.WorkBooks[1].WorkSheets[1].cells[6,col+2].value:=dbgrid1.fields[col].displaylabel;

for row :=0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
for col :=0 to DBGrid1.Columns.Count-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,col+2].value:=dbgrid1.DataSource.DataSet.Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,1]:=row+1;
end;
DBGrid1.DataSource.DataSet.Next;
end;

а вот как сделать что бы всё это хозяйство сохранилось в этот же (C:\1.XLS) фаил я не знаю ..?



для оформления кода пользуйтесь кнопкой # на панели, либо,
если пишете руками теги - то закрывающий тег должен быть с таким слешем [/code]
Модератор

[Serge_Bliznykov]

погоняйте вот этот примерчик, посмотрите, работает ли он, если да, то как.
при необходимости доведите напильником под собственные нужды.

var
  ExcelApp : variant;
  row :integer;
  col:integer;
begin
ExcelApp:=CreateOLEObject('Excel.Application');
ExcelApp.Workbooks.Open('C:\1.XLS', False);
// ExcelApp.WorkBooks.add; // !!!!!!!!!!!!!!!!!!!!!!!!!!МНЕ НУЖНО открыть документ  WorkBooks.Open['C:\1.XLS'];желательно что бы можно было ещё и лист открыть №3
ExcelApp.WorkBooks[1].WorkSheets[3].Activate;
ExcelApp.visible:=true;

for col :=0 to 10 do
 ExcelApp.ActiveWorkBook.WorkSheets[3].cells[6,col+2].value:=col*10;

  {если нужно, чтобы документ автоматически записал изменения}
  ExcelApp.ActiveWorkBook.Save; {('C:\1.XLS');}

  {если нужно закрыть документ и выгрузить из памяти}
  ExcelApp.Workbooks.Close; //закрываю книги экселя
  ExcelApp.Quit;  //закрываю эксель
  ExcelApp:=UnAssigned

end;

[dev89]

Спасибо за подсказку, меня это тоэе интересовало:-)