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

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Solana
Сообщения: 3
Зарегистрирован: 14 янв 2005, 16:13

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;
казалось бы все работает, но если копируемые ряды сгруппированы, то группировка не копируется, а хотелось бы.
Аватара пользователя
Игорь Акопян
Сообщения: 1419
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

14 янв 2005, 17:43

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