Ho provato diverse soluzioni per copiare alcune celle con le formule,
in questo caso di esempio vorrei copiare le celle: D1:F1 incollandole
partendo dalla posizione D2.
Mi da sempre questo errore:
Errore di runtime basic.
Si e' verificata un'eccezione
Type: com.sun.star.lang.IllegalArgumentException
Message: cannot coerce argument type during corereflection call!.
Qualche idea?
ciao
Beppe
sub Main
Dim oSheet as Object
Dim oCell As Object
Dim oCellDest
Dim oRangeSrc
oSheet = ThisComponent.Sheets.getByIndex( 0 )
rem oCellDest = oSheet.GetCellByPosition( 3, 1 ).CellAddress
oCellDest = oSheet.GetCellByPosition( 3, 1 )
oRangeSrc = oSheet.getCellRangeByPosition(3, 0, 5, 0)
rem oRangeSrc = oSheet.getCellRangeByName("D1:F1")
oSheet.CopyRange(oCellDest, oRangeSrc)
end sub
--
le nuvole non hanno regole,
perchè non hanno mai rinunciato
alla libertà di sognare.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
