Sub CopyRangeValue
Dim aPath As String
Dim aDocSrc As Object
Dim aSheetSrc As Object
Dim aRngSrc As Object

Dim aDocDst As Object
Dim aSheetDst As Object
Dim aRngDst As Object

  aDocSrc   = ThisComponent
  aSheetSrc = aDocSrc.Sheets.getByName("SheetSrc")
  
  aPath     = GetDir(aDocSrc) & "Test.ods"
  aDocDst   = OpenDoc(aPath, False)
  aSheetDst = aDocDst.Sheets.getByName("SheetDst")
  
  aRngSrc = aSheetSrc.GetCellRangeByName("A10:E12")
  aRngDst = aSheetDst.GetCellRangeByName("A10:E12")
  
  aRngDst.SetDataArray(aRngSrc.getDataArray())	
   
End sub

Sub CopyRange
Dim aPath As String
Dim aDocSrc As Object
Dim aSheetSrc As Object
Dim aRngAddressSrc As Object

Dim aDocDst As Object
Dim aSheetDst As Object
Dim aRngAddressDst As Object

Dim a1 As Object

  aDocSrc   = ThisComponent
  aSheetSrc = aDocSrc.Sheets.getByName("SheetSrc")
  
  aPath     = GetDir(aDocSrc) & "Test.ods"
  aDocDst   = OpenDoc(aPath, False)
  aSheetDst = aDocDst.Sheets.getByName("SheetDst")
  
  aRngAddressSrc = aSheetSrc.GetCellRangeByName("A10:E12").GetRangeAddress()
  aRngAddressDst = aSheetDst.GetCellByPosition(0, 20).GetCellAddress()
  
  aDocDst.GetCurrentController.ActiveSheet = aSheetDst
  
  aSheetSrc.CopyRange(aRngAddressDst, aRngAddressSrc)
                  
End sub