выравнивание данных в ячейках - ?

[Evgenii]

При импорте содержимого DBGrid в Excel выравнивание данных в столбцах происходит произвольно. А можно ли самому задать выравнивание данных по центру? Например, в столбце "количество" все цифры прижаты к правой стенке ячейки, а нужно чтобы они были в центре (задать необходимо не в excel а в самой программе). иначе при печати, если не задавать печать сетки, данные из разных полей сливаются

[TAVulator]

нужно сперва выбрать ячейку или несколько ячеек, например:

Excel.ActiveWorkBook.WorkSheets[1].Range['A3:E3'].Select;

или просто:

Excel.Range['A3:E3'].Select;

потом выставить в них выравнивание:

Excel.Selection.HorizontalAlignment:=xlCenter; {по центру}
Excel.Selection.HorizontalAlignment:=xlLeft; {по левому краю}
Excel.Selection.HorizontalAlignment:=xlRigth; {по правому краю}

[Evgenii]

не известно сколько будет заполненных ячеек в столбце. Их количество все время меняется. Необходимо чтобы сам столбец выравнивал все свое содержимое по центру, т.е. назначить определенному столбцу соответствующее выравнивание

[TAVulator]

а как на счет логики?

Excel.Columns[2].HorizontalAlignment:=xlCenter; {по центру}
Excel.Columns[2].HorizontalAlignment:=xlLeft; {по левому краю}
Excel.Columns[2].HorizontalAlignment:=xlRigth; {по правому краю}

где 2- номер столбца.

[Evgenii]

странно.. ставлю выравнивание по центру, а все данные почему то прижимаются к левой границе (до этого прижимались к правой)

[TAVulator]

странно.. ставлю выравнивание по центру, а все данные почему то прижимаются к левой границе (до этого прижимались к правой)

только что у себя проверил - все работает.

[Evgenii]

Вот мой код:

var
XLApp,Sheet,Colum:Variant;
index,i: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:=20;
Colum.Columns[2].ColumnWidth:=20;
П
375
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
Sheet.Cells[1,2]:='Телефонный справочник';
Sheet.Cells[2,1]:='Фамилия';
Sheet.Cells[2,2]:='Имя';
Sheet.Cells[2,3]:='e-mail';
Sheet.Cells[2,4]:='Город';
Sheet.Cells[2,5]:='Дата рождения';
index:=3;
DataModule1.BookTable.First;
for i:=0 to DataModule1.BookTable.RecordCount-1 do
begin
Sheet.Cells[index,1]:=DataModule1.BookTable.Fields.Fields[1].AsString;
Sheet.Cells[index,2]:=DataModule1.BookTable.Fields.Fields[2].AsString;
Sheet.Cells[index,3]:=DataModule1.BookTable.Fields.Fields[3].AsString;
Sheet.Cells[index,4]:=DataModule1.BookTable.Fields.Fields[5].AsString;
Sheet.Cells[index,5]:=FormatDateTime('dddddd',
DataModule1.BookTable.Fields.Fields[6].AsDateTime);
Inc(index);
DataModule1.BookTable.Next;
end;

Такой вариант не подходит
Excel.Columns[2].HorizontalAlignment:=xlCenter;
Я его видоизменял под свой код:
colum.Columns[2].HorizontalAlignment:=tacenter;
Может в этом проблема?

[TAVulator]

чет я не вижу в твоем примере строку

colum.Columns[2].HorizontalAlignment:=tacenter;

и откуда такое число -4167 в строке?

XLApp.Workbooks.Add(-4167);

попробуй делать так для выравнивания:

XLApp.Columns[2].HorizontalAlignment:=xlCenter;

[Evgenii]

-4167 это константа означающая создание книги.
а если сделать так:

XLApp.Columns[2].HorizontalAlignment:=xlCenter;

то программа не распознает выражение xlCenter

[TAVulator]

-4167 это константа означающая создание книги.

у меня и так:

Excel.Workbooks.Add;

все работает.

то программа не распознает выражение xlCenter

у тебя какая версия Excel?