Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как объединить вертикальные ячейки в Excel (разумеется из Delphi) [D7, WinXP]

ASoft © (2005-08-22 15:58:00)
Доброго дня.
Пытаю компонент 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.)

ASoft (2005-08-22 16:37:00) [1]
PS: На самом деле объединение может происходить по разному, к примеру:

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

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

alex_*** (2005-08-22 16:20:00) [3]
макрос сделай и смотри что вызывается там

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »