День добрый!
1) Мне надо сохранить данные стрингрида в ексель. Кол-во строк в стрингриде может быть от 1 (0 строка фиксированная). Кол-во столбцов 5 (0 фиксированный столбец) и не меняеца. Так вот не пойму как это сделать.
мой код такой:
Код:
procedure Tsozd2.Button5Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
i,i1,f,f1,rc:Integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Наряд';
Colum:=XLApp.Workbooks[1].WorkSheets['Наряд'].Columns;
Colum.Columns[1].ColumnWidth:=27.86;
Colum.Columns[2].ColumnWidth:=17.71;
Colum.Columns[3].ColumnWidth:=7.86;
Colum.Columns[4].ColumnWidth:=14.29;
Colum.Columns[5].ColumnWidth:=9.29;
Colum.Columns[6].ColumnWidth:=9.29;
Colum:=XLApp.Workbooks[1].WorkSheets['Наряд'].Rows;
Colum.Rows[2].Font.Bold:=true;
Sheet:=XLApp.Workbooks[1].WorkSheets['Наряд'];
Sheet.Cells[2,1]:='ФИО';
Sheet.Cells[2,2]:='Табельный номер';
Sheet.Cells[2,3]:='Разряд';
Sheet.Cells[2,4]:='Фонд времени';
Sheet.Cells[2,5]:='Тариф';
Sheet.Cells[2,6]:='Сумма';
for i:=1 to stringgrid1.RowCount-1 do begin
for i1:=1 to 5 do begin
rc:=stringgrid1.rowcount;
for f:=3 to rc do
for f1:=1 to 6 do
Sheet.Cells[f,f1]:=stringgrid1.Cells[i1,i];
end;
end;
end;
При сохранении программа выводит данные последнего столбца (5) и последней строки, т.е. (имеем 7 строк) stringgrid1.cells[5,7].
Что не так?
2) Как сделать чтобы данные выводимая таблица была с границами?
3) Как сделать чтобы лист был не в книжном, а в альбомном формате?