Копировать диапазон ячеек из листа в новую книгу

[dimmon777]

Добрый день!
Использую следующий макрос для создания новой книги и копирования туда диапазона ячеек (A2:C8) из старой:

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

Sub Copy
Dim oDesk as Object
Dim oDoc as Object
Dim oUrl as String
Dim oUrlTemp as String
Dim oSheet
oSheet = ThisComponent.Sheets(0)
oDesk = createUnoService ("com.sun.star.frame.Desktop")

Dim oRangeAddress
Dim oCellAddress

oUrlTemp = "private:factory/scalc"

oDoc = oDesk.loadComponentFromURL (oUrlTemp, "_blank", 0, Array() )
oSheet = oDoc.sheets (0)
oSheet1 = ThisComponent.Sheets(0)

oRangeAddress = oSheet.getCellRangeByName("A2:C8").getRangeAddress()
oCellAddress = oSheet1.getCellByPosition(0, 2).getCellAddress()
oSheet.copyRange(oCellAddress, oRangeAddress)

end sub

Дело в том, что данный метод не копирует ячейки из одной книги в другую(((

Подскажите способ копирования диапазона ячеек

[JohnSUN]

.getDataArray и .setDataArray(aData) (методы объекта Range - .geCellRangeByPosition или, как у тебя - .getCellRangeByName)
или
.getTransferable() и .insertTransferable(obj) (методы контроллера)
или просто через буфер обмена

[dimmon777]

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

oAllData=Sheet1.getCellRangeByName("A2:C8").DataArray
Sheet2.getCellRangeByName("A2:C8").DataArray=oAllData


работает, НО копирует только данные из ячеек на не формат ячеек. А мне нужен формат.

[JohnSUN]

Тогда или .getTransferable() / .insertTransferable(obj), или скопировать нужный лист в новую книгу и уже там почистить от лишнего

[rami]

В этой теме посмотрите