delphi&excel (HELP)

[fenix]

Пипл подскажите плиз как из делфы в Excel можно обединить 2 ячейки
с помещением текста в центре (в екселе такая кнопка есть а как из delphi это зделать)
Зарание благодарен.

 

[admin]

fenix
хммм
А ты вообще с экселем через Delphi работал? OLE знаешь такую фичу? Можно всё просто вывести в окне делфовом и нажать кнопку.

 

[GERASIM FROM MINSK]

Сам только что накопал в Инете в проекте DELPHI WORLD

ПОКА ЕЩЕ НЕ ПРОВЕРЯЛ

MerCen('A4:J4');

Исходный код:

var
xls: Variant;
const
xlCenter = -4108;

procedure MerCen(ran: string);
begin
xls.Range[ran].Select;
xls.Selection.HorizontalAlignment := xlCenter;
xls.Selection.VerticalAlignment := xlCenter;
xls.Selection.WrapText:= false;
xls.Selection.Orientation := 0;
xls.Selection.ShrinkToFit := False;
xls.Selection.MergeCells := False;
xls.Selection.Merge;
end;

 

[Barmutik]

Работает:

ExcelApp.ActiveWorkBook.WorkSheets[1].Range['A1, 'C2'].MergeCells := True;

Диапазон ячеек дан для примера само собой...