[DOR]

Здравствуйте. Ниже приведен код на экспорт в созданный "вручную шаблон" Эксель. Все работает, но не знаю как pflfnm формат ячеек вновь создаваемых строк по подобию уже имеющихся. Например есть в "шаблоне" шестая строка которая имеет определенный формат, как сделать так, чтобы вставляемая строка имела формат предыдущей строчки. т.е. от WSheet.Cells.Item[6+i,1] до i.

Код:

procedure Tf_Reestr.SpeedButton2Click(Sender: TObject);
const lcid = LOCALE_USER_DEFAULT;
var
    WBook:_WorkBook;
    WSheet:_Worksheet;
    i: integer;
begin
  ExcelApplication1.Connect;
  WBook := ExcelApplication1.Workbooks.Add(ExtractFilePath(Application.ExeName) + '\templ_reestr.xlsx',LCID);
  ExcelApplication1.Visible[0] := True;
  WSheet := WBook.Worksheets[1] as ExcelWorksheet;

  i := 1;
  Q_Reestr_List.First;
  while not Q_Reestr_List.Eof do
    begin
      WSheet.Cells.Item[6+i,1].Value := inttostr(i);
      WSheet.Cells.Item[6+i,3].Value := Q_Reestr_List.FieldByName('Polis').Value;
    inc(i);
  Q_Reestr_List.Next;
    end;
end;