ComExcelDocument_RU по именнованной ячейки вывести номер ее строки.

[Poleax]

Хорошо Gustav интересный код. Обязательно пригодится и использую.
Только у меня, еще немного другой вопрос.
Как сделать чтоб передали методу параметры (str _bookMark, int _workSheet = 1)
и для _BookMark скопировать всю эту область и вставить ниже, под копируемой областью. (с полным форматированием, и если ячейка именованная пользователем, то именованную ячейку перенести вниз.) ?
А содержимое _bookMark оставить как есть.. но уже без имени ячейки.
Т.е. копируем вставляем не всю строку, а только ту область которую указали.

[Gustav]

Т.е., как я понял, всё происходит так же, как и в методе copyAndInsertRange, только перед "букмарком" вставляются не полные строки, а диапазон с таким же размером, как у исходного "букмарка".

На VBA это выглядит так (отличие в одной строке):

 
Sub Macro2()
    Dim rng As Range
    Set rng = Range("B2:C4")
    
    rng.Insert xlShiftDown 'где константа xlShiftDown = -4121
    rng.Copy rng.Offset(-rng.Rows.Count)
End Sub

В методе copyAndInsertRangeNew меняем соответствующую строку:

// с
COM::createFromObject(_comRange.EntireRow()).Insert();

// на
_comRange.Insert( #xlShiftDown ); // и выше добавить: #define.xlShiftDown(-4121)

[Gustav]

Цитата:

Сообщение от Gustav

 
Sub Macro2()
    Dim rng As Range
    Set rng = Range("B2:C4")
    
    rng.Insert xlShiftDown 'где константа xlShiftDown = -4121
    rng.Copy rng.Offset(-rng.Rows.Count)
End Sub

Похоже, ларчик открывался очень просто...

 
Sub Macro22()
    Dim rng As Range
    Set rng = Range("B2:C4")
    
    If rng.MergeCells Then
        Set rng = rng.Range("A1").MergeArea
    End If
    
    rng.Insert xlShiftDown 'где константа xlShiftDown = -4121
    rng.Copy rng.Offset(-rng.Rows.Count)
End Sub

Оно??

P.S. Соответственно, добавка в метод:

if (comRange.MergeCells())
{
    comRange = comRange.Range('A1');
    comRange = comRange.MergeArea();
}