Экспорт в Excel

[Irina_94]

Здравствуйте, помогите пожалуйста.
Как можно из DBGrid(Table) перенести содержимое таблицы в Excel?

[Son Of Pain]

очень просто

[Irina_94]

Как? Подскажите пожалуйста

[ZX Spectrum-128]

Там по ссылке (если вы не читали ) код приведен.

[Irina_94]

Попробовала этот код.

var
XL, Cell1, Cell2, ArrayData: Variant;
RowCount: integer;
BeginCol, BeginRow,i,ColCount:byte;
begin

BeginCol := 1;
BeginRow := 3;
RowCount := ADOTable1.RecordCount;
ColCount := 12;
XL := CreateOleObject('Excel.Application' );
XL.Application.EnableEvents := false;
XL.WorkBooks.Add;
XL.Rows.Rows[2].Font.Bold:=true;
XL.Rows.Rows[2].Font.Size:=10;
XL.Rows.Rows[2].WrapText := True;
XL.Rows.Rows[2].HorizontalAlignment := 3;
XL.Rows.Rows[2].VerticalAlignment := 2;
XL.Cells[2,1]:= 'Фамилия';
XL.Cells[2,2]:='Имя';
XL.Cells[2,3]:='Отчество';
XL.Cells[2,4]:='Дата рождения';
XL.Cells[2,5]:='Паспортные данные';
XL.Cells[2,6]:='Образование';
XL.Cells[2,7]:='Должность';
XL.Cells[2,8]:='Адрес';
XL.Cells[2,9]:='Телефон';
XL.Cells[2,10]:='ИНН';
XL.Cells[2,11]:='СНИЛС';
XL.Cells[2,12]:='Категория';
XL.Columns.Columns[1].ColumnWidth:=10;
XL.Columns.Columns[2].ColumnWidth:=12;
XL.Columns.Columns[3].ColumnWidth:=15;
XL.Columns.Columns[4].ColumnWidth:=10;
XL.Columns.Columns[5].ColumnWidth:=20;
XL.Columns.Columns[6].ColumnWidth:=30;
XL.Columns.Columns[7].ColumnWidth:=20;
XL.Columns.Columns[8].ColumnWidth:=30;
XL.Columns.Columns[9].ColumnWidth:=11;
XL.Columns.Columns[10].ColumnWidth:=20;
XL.Columns.Columns[11].ColumnWidth:=20;
XL.Columns.Columns[12].ColumnWidth:=10;

ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);


Если использовать код в {} то не открывается Excel выдаёт ошибку.

{ADOTable1.First;//çàïîëíÿåì ìàññèâ çíà÷åíèÿìè èç ADOTable1
for i := 1 to RowCount do
begin
ArrayData[i,1] := ADOTable1['fam'];
ArrayData[i,2] := ADOTable1['imya'];
ArrayData[i,3] := ADOTable1['othtestv'];
ArrayData[i,4] := ADOTable1['date'];
ArrayData[i,5] := ADOTable1['dan'];
ArrayData[i,6] := ADOTable1['obraz'];
ArrayData[i,7] := ADOTable1['dolzh'];
ArrayData[i,8] := ADOTable1['adres'];
ArrayData[i,9] := ADOTable1['numer'];
ArrayData[i,10] := ADOTable1['inn'];
ArrayData[i,11] := ADOTable1['snils'];
ArrayData[i,12] := ADOTable1['kateg'];
ADOTable1.Next;
end; }


Cell1 := XL.Cells[BeginRow-1, BeginCol];
Cell2 := XL.Cells[BeginRow+RowCount-1, BeginCol + ColCount-1];
XL.Range[XL.Cells[BeginRow, BeginCol], Cell2].Value := ArrayData;
XL.Range[Cell1, Cell2].Borders.LineStyle := 1;
XL.Visible := true;
end;

[Irina_94]

Разобралась сама)))))