Как переписать код Excel на Delphi

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ

Обзор темы
   

Развернуть Обзор темы: Как переписать код Excel на Delphi

Игорь Акопян » 14 янв 2005, 17:43

Попробуй через свойство EntireRow (объекта Range)
.EntireRow.Insert(OLEVariant(xlShiftDown));

Как переписать код Excel на Delphi

Solana » 14 янв 2005, 16:58

Подскажите кто сможет пожалуйста. Мне нужно скопировать несколько рядов и вставить их как новые. В Excel есть функция "добавить скопированные ячейки" и макрос выглядит так
Rows("3:5").Select
Selection.Copy
Rows("2:2").Select
Selection.Insert Shift:=xlDown
знаю как просто добавить ряды и как копировать ряды:
var Worksheet: _Worksheet;
begin
// вставляю новые ряды
Worksheet.Rows.Range['3:5',EmptyParam].Insert(xlDown);
// копирую ряды
Worksheet.Range['A3','A5'].Rows.Copy(Worksheet.Range['A2',EmptyParam]);
end;
казалось бы все работает, но если копируемые ряды сгруппированы, то группировка не копируется, а хотелось бы.

Вернуться к началу