Bart Aimar ha scritto:
Salve a tutti,
Sub consolida
oSheet = ThisComponent.currentController.activeSheet
oCell = oSheet.GetCellbyPosition( 0, 0 )
oCursor = oSheet.createCursorByRange(oCell)
oCursor.GotoEndOfUsedArea(True)
aAddress = oCursor.RangeAddress
nEndRow = aAddress.EndRow
nEndCol = aAddress.EndColumn
oRange=oSheet.getCellRangeByPosition (0,0,240,nEndRow)
ho provato a sostituire "240" con "nEndCol"
non conosco bene questo codice, quindi non so che valore abbia, però non
si impianta: se esiste un qualche "piccolo" manuale, mi piacerebbe
studiare meglio la cosa...
Flags = com.sun.star.sheet.CellFlags.FORMULA
aSaveData = oRange.getDataArray()
oRange.clearContents(Flags)
oRange.setDataArray( aSaveData )
aSaveData = oRange.getDataArray()
End Sub
valerio
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
