Скачать: CL | DM;

Как объединить вертикальные ячейки в Excel (разумеется из Delphi)   Найти похожие ветки 

← →
ASoft   (2005-08-22 15:58) [0]

Доброго дня.
Пытаю компонент TExcelApplication.
Пишу, к примеру:
...
 Var
 WorkBk: _WorkBook;
 WorkSheet: _WorkSheet;
begin
 try
   XLApp.WorkBooks.Add(xlWBatWorkSheet , 0);
   WorkBk := XLApp.WorkBooks.Item[1];
   WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
   WorkSheet.Range["A1","A4"].Merge(xlCenter);
...
И фиг там, не объединяется.
а вот так:
WorkSheet.Range["A1","B4"].Merge(xlCenter);
пожалста! То есть - по горизонтали получается, а по вертикали нет.
Помогите чем можете? (Excel - Rus.)

---

← →
alex_***   (2005-08-22 16:20) [1]

макрос сделай и смотри что вызывается там

---

← →
ASoft   (2005-08-22 16:31) [2]

Спасибо за совет. Из "самозаписывающихся" макросов я многое узнал. Но почему-то именно этот момент у меня не получился сразу, ведь по горизонтали объединение происходило нормально.
Вопрос решился в положительную сторону так:
WorkSheet.Range["A1","A4"].MergeCells:=True;
Вопрос закрыт. Спасибо.

---

← →
ASoft   (2005-08-22 16:37) [3]

PS: На самом деле объединение может происходить по разному, к примеру:

WorkSheet.Range["A1","C4"].Merge(xlCenter); - объединит ячейки по горизонтали, а
WorkSheet.Range["A1","С4"].MergeCells:=True; - по вертикали.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.042 c