Вставка данных в шаблон документа в ячейку Excel из StringGrid

[artemavd]

Собственно вопрос таков.

Есть: Есть некоторый шаблон - ОТЧЕТ.xls.
Что нужно: нужно не показывая самого редактора Excel подключиться к этому шаблону и вставить в него некоторые числовые данные.

Например, в ячейку С1 в шаблоне вставить значение из ячейки StringGrid1.Cells[1,1], т.е. чтобы было как-то так:
<указанная ячейка в шаблоне Excel>:=StringGrid1.Cells[1,1];

Важное условие: нужно, чтобы шаблон не изменял своих размеров строк и колонок, а также цветов, чтобы было все на месте. Как можно такое реализовать?

[A-IX-2]

Не показывать Excel и сохранить в него можно так:

procedure TForm1.N3Click(Sender: TObject);
  var
    Excel, WorkBook, Sheet:variant;
    i, j: integer;
    FName: string;
begin 
  if SaveDialog1.Execute then FName := SaveDialog1.FileName
  else Exit;
  Excel:=CreateOleObject('Excel.Application');
  Excel.DisplayAlerts:=False;
  Excel.Visible:=False;
  Workbook:=Excel.Workbooks.Add;
  Workbook.SaveAs(FName);
  Sheet:= Workbook.ActiveSheet;
  Sheet.Cells[1,3]:=StringGrid1.Cells[1,1];
  Workbook.Save;
  Workbook.Close;
  Excel.Quit;
  Excel:= UnAssigned;
end;

Но вот как сделать, чтобы он добавлял, а не заново переписывал я не знаю.

[artemavd]

Да все нормально добавляет вроде . Спасибо. А если надо будет внести также диапозон значений? Например, в столбец С в Excel заполнить диапозон C1:C10 из StringGrid'a. Как в цикле передать из StringGrid'a понятно, а вот как указать этот диапозон в Excel'e?

[Swarog]

Но вот как сделать, чтобы он добавлял, а не заново переписывал я не знаю.

а так не работает?

Sheet.Cells[1,3]:=Sheet.Cells[1,3] + StringGrid1.Cells[1,1];

Например, в столбец С в Excel заполнить диапозон C1:C10 из StringGrid'a. Как в цикле передать из StringGrid'a понятно, а вот как указать этот диапозон в Excel'e?

если использовать Sheet.Cells[X,Y] то вроде адресация ячеек совпадает просто переносишь данные, или я не прав?

[A-IX-2]

Адресация как раз не совпадает, в Excel нет ячеек с нулевыми индексами, т.е. при переносе в Excel надо добавлять к индексам 1. Так же в Excel Cells[строка,столбец], а в стрингрид Cells[столбец,строка].

for i:= 0 to StringGrid1.RowCount - 1 do
for j:= 0 to StringGrid1.ColCount - 1 do
Sheet.Cells[i+1, j+1]:=StringGrid1.Cells[j, i];