Форматирование таблицы в Excel программно

[monushka]

У меня есть StringGrid, у которого заранее неизвестно количество строк. Данные из него записываются в Excel. Нужно отформатировать по таким параметрам, как границы ячейки, шрифт, выравнивание... Делаю так:

E:=CreateOleObject('Excel.Application');
E.WorkBooks.Add;
E.Visible:=true;
E.ActiveSheet.PageSetup.Orientation:= 2;
E.ActiveWorkbook.WorkSheets[1].Columns[1].ColumnWidth:= 20;
E.ActiveWorkbook.WorkSheets[1].Columns[2].ColumnWidth:= 13;
E.ActiveWorkbook.WorkSheets[1].Columns[3].ColumnWidth:= 25;
E.ActiveWorkbook.WorkSheets[1].Columns[4].ColumnWidth:= 30;
E.ActiveWorkbook.WorkSheets[1].Columns[5].ColumnWidth:= 6;
E.ActiveWorkbook.WorkSheets[1].Columns[6].ColumnWidth:= 13;
E.ActiveWorkbook.WorkSheets[1].Columns[7].ColumnWidth:= 10;
E.ActiveWorkbook.WorkSheets[1].Columns[8].ColumnWidth:= 10;
E.WorkBooks[1].WorkSheets[1].Rows[1].Font.Bold := True;
for i:=1 to SG1.RowCount do begin
E.WorkBooks[1].WorkSheets[1].Rows[i].Font.Name := 'Times New Roman';
E.WorkBooks[1].WorkSheets[1].Rows[i].Font.Size := 11;
end;
E.ActiveWorkBook.WorkSheets[1].Range['A1:H1'].Select;
E.Selection.HorizontalAlignment:=-4108; //выравнивание по центру
E.Selection.Borders.LineStyle:=1;  //показываем границы ячеек
E.Selection.Borders.Weight:=2;   //стиль границ
E.Selection.WrapText:=true;      //перенос по словам
for i:=1 to SG1.RowCount do
for j:=1 to SG1.ColCount do
E.ActiveSheet.Cells[i,j].Value:=SG1.Cells[j-1,i-1];
E.ActiveSheet.Cells[SG1.RowCount+3,5]:='Итого: ';
E.ActiveSheet.Cells[SG1.RowCount+3,6]:=Edit1.Text;

Но для этого необходимо выделить диапазон ячеек. А как мне выделить диапазон ячеек, если размеры таблицы изначально неизвестны? Т.е. известно только количество столбцов, но неизвестно количество строк.

E.ActiveWorkBook.WorkSheets[1].Range['A1:H1'].Select;

На сколько я понимаю, в выражении [A1:H1] буквы означают столбцы, а цифры - строки. Пробовала делать цикл:

for i:=1 to SG1.RowCount do
E.ActiveWorkBook.WorkSheets[1].Range['A1:Hi'].Select;

Но это не работает... Помогите, пожалуйста!

[monushka]

Неужели никто не сталкивался с подобной проблемой?

[monushka]

Все, разобралась. Может кому надо будет, выкладываю:

for i:=1 to SG1.RowCount do begin
E.ActiveSheet.Rows[i].Font.Name := 'Times New Roman';
E.ActiveSheet.Rows[i].Font.Size := 10;
E.ActiveSheet.Range[E.ActiveSheet.Cells.Item[1,1], E.ActiveSheet.Cells.Item[i,8]].Select; //кол-во строк i, кол-во столбцов 8
E.Selection.HorizontalAlignment:=-4108; //выравнивание по центру
E.Selection.Borders.LineStyle:=1;  //показываем границы ячеек
E.Selection.Borders.Weight:=2;
end;