из StringGrid в Excel по шаблону

[Dotha]

Здравствуйте!
Подскажите пожалуйста, как реализовать такое:
Есть файл шаблона Excel (1.xls).
В нем есть текст сверху и снизу.
В середину загружается таблица из StringGrid, сколько строк неизвестно (1 строка, 10, 50).
Как сделать так чтобы нижний текст в Excel снижался в месте с добавленными строками?
Вот снимок экрана
Снимок.JPG
а вот сама выгрузка из StringGrid в Excel по шаблону

procedure TForm2.sButton5Click(Sender: TObject);
var
ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData : Variant;
    TemplateFile, ExelOtch : String;
    BeginCol, BeginRow, i, j,x : integer;
    RowCount, ColCount : integer;
 
begin
  BeginCol := 1;
  BeginRow := 8;
 
 
  ExelOtch:=ExtractFilePath(Application.EXEName)+'bases\1.xls';
  ExcelApp := CreateOleObject('Excel.Application');
  Workbook := ExcelApp.WorkBooks.Add(ExelOtch);
  ExcelApp.Visible := true;
  ArrayData := VarArrayCreate([0,StringGrid2.RowCount+1, 0, StringGrid2.ColCount+1], varVariant);
  ExcelApp.Cells[2,2]:=OpenMenu.Text;
 
 
     for I := 0 to StringGrid2.ColCount-1 do
     for J := 1 to StringGrid2.RowCount-1 do
     begin
 
     Form2.StringGrid2.Cells[i,j]:=StringGrid2.Cells[i,j];
 
     end;
 
 
     for I := 0 to StringGrid2.ColCount-1 do
     for J := 1 to StringGrid2.RowCount-1 do
     ArrayData[j, i] := Form2.StringGrid2.Cells[i,j];
 
 
  Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
  Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + Form2.StringGrid2.RowCount - 1,
           BeginCol + Form2.StringGrid2.ColCount - 1];
 
  ExcelApp.WorkBooks[1].WorkSheets[1].Range[Cell1, Cell2].Borders.LineStyle := 1;
  ExcelApp.WorkBooks[1].WorkSheets[1].Range[Cell1, Cell2].Borders.Weight := 2;
  ExcelApp.WorkBooks[1].WorkSheets[1].Range[Cell1, Cell2].Borders.ColorIndex := 1;
 
  Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
  Range.Value := ArrayData;
 
end;

Заранее спасибо!

[Stilet]

Вот я наверное сейчас чухню сморожу, но ИМХО такие вещи делают с помошью колонтитулов. А чухню потому что не помню есть ли в экзеле настройка шаблонов документа. В Ворде по крайней мере я так и делал - сам лист чист, а в колонтитулах ГОСТовская рамка.

[Dotha]

Сообщение от Stilet

Вот я наверное сейчас чухню сморожу, но ИМХО такие вещи делают с помошью колонтитулов. А чухню потому что не помню есть ли в экзеле настройка шаблонов документа. В Ворде по крайней мере я так и делал - сам лист чист, а в колонтитулах ГОСТовская рамка.

А как это? На примере можешь показать?

[Аватар]

Так есть же наверняка в WorkSheet-е или ему подчиненном объекте метод вставки строки по индексу. Почему не использовать? Только медленно все это

[Stilet]

На примере можешь показать?

У меня только ЛибреОффис. Раньше делал такое но не в экзеле а в ворде.

[Dotha]

Разобрался с помощью этого примера.
Может кому пригодится!
StringGridToExcel.rar