PDA

Просмотр полной версии : Как переписать код Excel на Delphi



Solana
14.01.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;
казалось бы все работает, но если копируемые ряды сгруппированы, то группировка не копируется, а хотелось бы.

Игорь Акопян
14.01.2005, 17:43
Попробуй через свойство EntireRow (объекта Range)
.EntireRow.Insert(OLEVariant(xlShiftDown));