Копировать диапазон в пустую строку другого файла

[bigor]

В чём может быть проблема?

нужно функцию GetLast

Код Выделить Развернуть

Function getLast(oSheet as Variant, sCellAddress As String, lastColumn As Boolean) As Long
Dim oCursor As Variant
Dim aRAddress As New com.sun.star.table.CellRangeAddress
    oCursor = oSheet.createCursorByRange(oSheet.getCellRangeByName(sCellAddress))
    oCursor.collapseToCurrentRegion()
    aRAddress = oCursor.getRangeAddress()
    If lastColumn Then
        getLast = aRAddress.EndColumn
    Else
        getLast = aRAddress.EndRow
    EndIf
End Function нужна для работы, нужно ее скопировать и вставить рядом с copyRange

Хотя, можно переписать код и без нее. Но не сегодня

[paresh]

нужно функцию GetLast

Функцию добавил, всё работает!)))

[paresh]

Добрый день!
Пожалуйста, помогите разобраться. Внес изменения в файл. Отразил все в макросе, но basic выдает ошибку. В чем может быть дело?

Ошибка времени выполнения Basic.
Вызвано исключение
Type: com.sun.star.uno.RuntimeException
Message: .

С уважением, Павел.

[bigor]

В чем может быть дело?

зачем здесь \\flsrv
два слэша?

[paresh]

Указан адрес файла на сервере. Файл он открывает и находит. Но почему-то стал ругаться на строку oRange.setdataarray(a)

[bigor]

Диапазон куда вставляете не соответствует массиву

[paresh]

Большое спасибо! Разобрался!