Как вставить строку в таблицу excel при этом все остальные сдвинуть на позицию в низ, сохранив их формат.

[anchorte]

Народ подскажите как вставить строку в таблицу excel при этом все остальные сдвинуть на позицию в низ, сохранив их формат.

пробовал сделать так:

Var
  x:variant;
  Tel,datD,datM,datY:String;
  myDate : TDateTime;
  i,z:integer;
begin
  z:=StrToInt(gar5.Text);
  x:=CreateOleObject('Excel.Application');
  x.WorkBooks.ADD(template:='D:\info-c\Бланки\Garant.xls');
  x.worksheets[1].Select;
  myDate:=Now;
  DateTimeToString(datD, 'dd', myDate);
  DateTimeToString(datM, 'mmmm', myDate);
  DateTimeToString(datY, 'yyyy', myDate);
  x.cells[StrToInt(gar7.Text),StrToInt(gar8.Text)]:='ГАРАНТИЙНЫЙ ТАЛОН  от   «' +datD+ '» ' +datM+'  '+datY+' г.';
  with Table3 do
   begin
    Table3.First;
    for i := 0 to 9 do
     if not EOF then
      begin
        x.cells[StrToInt(gar1.Text)+i+1,StrToInt(gar2.Text)].insert;
        x.cells[StrToInt(gar1.Text)+i,StrToInt(gar2.Text)]:=FieldByName  ('Наименование').AsString;
        x.Range['A'+IntToStr(z+i)+':C'+IntToStr(z+i)].select;
        x.selection.borders.linestyle:=1;
        Table3.Next;
      end;
   end;
  x.visible:=true;

но так вставляетьться только текст, а форматирование остаеться привязаным к заданым ячейкам.

подскажите как можно реализовать то что я хочу или где можно почитать литературу

[Скандербег]

Один из вариантов решения проблемы.

var
  XLApp, WSh, Rng : Variant;
  ...
  WSh := XLApp.WorkBooks[1].WorkSheets[Sheet];
  WSh.Select; //выбранный лист
  ...

  //вставка строки (здесь одной) в позицию <Row> и копирование форматов ячеек
  Rng := WSh.Rows[Row];
  Rng.Select;

  //вставка строки; новая строка внизу (Row+1)
  XLApp.Selection.Insert(Shift := xlDown); 

  //копирование формата с ячеек существующей строки на ячейки добавленной
  Rng := WSh.Rows[Row+1];
  Rng.Select;
  XLApp.Selection.Copy;
  Rng := WSh.Rows[Row];
  Rng.Select;
  XLApp.Selection.PasteSpecial(Paste:=xlPasteFormats, Operation:=xlNone,
                               SkipBlanks:=False, Transpose:=False);
  XLApp.CutCopyMode := False;

[Dus-F]

Спс, Скандербег.