![Старый](images/statusicon/post_old.gif)
25.12.2008, 16:55
|
![Аватар для pesi](image.php?s=12acd53aee657cebbfd1e29758879378&u=4864&dateline=1247561575) |
Активный
|
|
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
|
|
Экспорт в эксель из DBGridEh
делаю экспорт в эксель
Код:
var
XLApp,Sheet,Colum:Variant;
index,i, j:Integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Сводная';
XLApp.ActiveSheet.PageSetup.Orientation:= 2;
XLApp.ActiveSheet.PageSetup.RightMargin:= XLApp.Application.InchesToPoints(0.4);
XLapp.WorkBooks[1].WorkSheets[1].Range['A2:N2'].Borders.LineStyle := 1;
Colum:=XLApp.Workbooks[1].WorkSheets['Сводная'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Сводная'];
Sheet.Cells[2,1]:='1';
Sheet.Cells[2,2]:='0-1';
Sheet.Cells[2,3]:='1-2';
Sheet.Cells[2,4]:='2-3';
Sheet.Cells[2,5]:='3-4';
Sheet.Cells[2,6]:='4-5';
Sheet.Cells[2,7]:='6-7';
Sheet.Cells[2,8]:='7-8';
Sheet.Cells[2,9]:='0-8';
index:=3;
DBGridEh1.DataSource.DataSet.First;
for i:=1 to DBGridEh1.DataSource.DataSet.RecordCount do
begin
for j:=1 to DBGridEh1.FieldCount do
sheet.cells[index,j]:=DBGridEh1.fields[j-1].asstring;
inc(index);
DBGridEh1.DataSource.DataSet.Next;
end;
но в эксель экспортируется вся DBGridEh. В DBGridEh сделано Sumlist Active=true, вот сумма столбцов и не экспортируется. Подскажите что делать???
|