[Zhigalov]

Порылся я на форуме так и не нашал функции каторые используются да формирования екселевского документа при его экспорте. Если у кого то есть полный список этих функций выложите пожалуйсто. К примеру вот такие

ExcelApp.Columns.AutoFit - Подгоняет ячейку под кол-во символов.

[NumLock]

Microsoft Excel Visual Basic Reference

[Zhigalov]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

procedure TForm1.Button2Click(Sender: TObject);  Var   i,ind:Integer;   ExcelApp,Sheet:Variant;    begin     ExcelApp:=CreateOleObject('Excel.Application');     ExcelApp.WorkBooks.Add;     ExcelApp.WorkBooks[1].WorkSheets[1].Name:='Отчет';     sheet:=ExcelApp.WorkBooks[1].WorkSheets['Отчет'];       Sheet.Cells[1,1].Columns.Font.Bold:=True;     Sheet.Cells[1,1].Columns.Font.Size:=12;     Sheet.Cells[1,1].Columns.Borders.LineStyle:=1;     Sheet.Cells[1,1]:='Дата/Время';       Sheet.Cells[1,2].Columns.Font.Bold:=True;     Sheet.Cells[1,2].Columns.Font.Size:=12;     Sheet.Cells[1,2].Columns.Borders.LineStyle:=1;     Sheet.Cells[1,2]:='Среднее значение';       ind:=2;     DBGrid1.DataSource.DataSet.First;      For i:=1 to DBGrid1.DataSource.DataSet.RecordCount do       Begin          Sheet.Cells[ind,1].Columns.Borders.LineStyle:=1;        Sheet.Cells[ind,1]:=DBGrid1.Fields[0].AsString;            Sheet.Cells[ind,2].Columns.Borders.LineStyle:=1;        Sheet.Cells[ind,2]:=DBGrid1.Fields[1].Value;          inc(ind);        DBGrid1.DataSource.DataSet.Next;       end;      Sheet.Columns.NumberFormat:='# #0,00';     ExcelApp.Columns.AutoFit;     ExcelApp.Visible:=True;    end;

А как сделать чтоб формат поля задавался дапустим тока для [B2:B8].

Код:

1 2 3

Sheet.Cells[ind,2].Columns.NumberFormat:='# #0,00';       Sheet.Cells[ind,2].Columns.Borders.LineStyle:=1;       Sheet.Cells[ind,2]:=DBGrid1.Fields[1].Value;

Так не пойдет патамучто буду делать вывод через масив, а не построчно.