Excel

[Farmokolog]

Подскажите как доработать чтобы из таблицы Stringgrid брал все данные
и вставлялв в Excel начиная c 3 строки, с перехватом ошибок если вдург неустановлен Excel выдовал сообщение.

EX:=CreateOleObject('Excel.Application');
EX.WorkBooks.Add(-4167);
ExList:=EX.WorkBooks[1].WorkSheets[1];
ExList.Name:='Баланс';
Ex.Visible:=true;
Cols:= ExList.Columns;
Cols.Columns[1].ColumnWidth:=20;
Cols.Columns[1].HorizontalAlignment:=xlLeft;
Cols.Columns[2].ColumnWidth:=20;
Cols.Columns[2].HorizontalAlignment:=xlLeft;
Cols.Columns[3].ColumnWidth:=20;
Cols.Columns[3].HorizontalAlignment:=xlLeft;
Cols.Columns[4].ColumnWidth:=20;
Cols.Columns[4].HorizontalAlignment:=xlLeft;
Cols.Columns[5].ColumnWidth:=20;
Cols.Columns[5].HorizontalAlignment:=xlLeft;
Cols.Columns[6].ColumnWidth:=20;
Cols.Columns[6].HorizontalAlignment:=xlLeft;

Rows:=EXList.Rows;
Rows.Rows[1].HorizontalAlignment:=xlCenter;
Rows.Rows[1].Font.Bold:=true;
Rows.Rows[1].Font.Color:=clGreen;
Rows.Rows[1].Font.Size:=16;
Rows.Rows[2].HorizontalAlignment:=xlCenter;
Rows.Rows[2].Font.Bold:=true;
Rows.Rows[2].Font.Color:=clNavy;
ExList.Range['A1:F1'].MergeCells:=true;
ExList.Range['A2:F2'].Borders.LineStyle:=xlContinuous ;
ExList.Range['A2:C2'].MergeCells:=true;
ExList.Range['A3:C3'].Borders.LineStyle:=xlContinuous ;
ExList.Range['D2:F2'].MergeCells:=true;
ExList.Range['D3:F3'].Borders.LineStyle:=xlContinuous ;
Exlist.Cells[1,1]:='Материальный баланс';
Exlist.Cells[2,1]:='Входные данные';
Exlist.Cells[2,4]:='Выходные данные';
Except
showmessage('Ошибка');
end;

[Нур]

А заключить в try except не пробовал? Ну а Данные можно передавать пробегая по StringGrid путем примерным

Excel.workbook.Sheet.Cell[i][j] := StringGrid.cells[i][j];

Ну там сам доработай как надо) Кстати такая передача в больших таблицах будет заметно медленной из за частого обращения к дисковой памяти. Постарайся в Range забивать. если тебе это надо конешно...