delphi&excel (HELP)

  • Автор темы fenix
  • Дата начала
Статус
Закрыто для дальнейших ответов.
F

fenix

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

admin

Well-known member
08.08.2003
2 754
0
#2
fenix
хммм
А ты вообще с экселем через Delphi работал? OLE знаешь такую фичу? Можно всё просто вывести в окне делфовом и нажать кнопку.
 
G

GERASIM FROM MINSK

#3
Сам только что накопал в Инете в проекте 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;
 
B

Barmutik

#4
Работает:

Код:
ExcelApp.ActiveWorkBook.WorkSheets[1].Range['A1, 'C2'].MergeCells := True;
Диапазон ячеек дан для примера само собой...
 
Статус
Закрыто для дальнейших ответов.