Il 09/03/2012 13:35, Cesare Spaziani ha scritto:
> Il 08/03/2012 15:03, nicola ha scritto:
>> Ciao, avrei bisognio di un aiuto per questo problema:
>> uso un foglio di calc "fattura.ods" (sia OO che LB) per fare le mie fatture,
>> quando emetto una fattura vorrei salvare, con un pulsante, tutti i dati
>> compresi nell'intervallo A13:i44 in un altro file calc chiamato "dati.ods"
>> nella cartella /home/fatture.
>> mi servirebbe una macro che:
>> 1 copi i dati nell'intervallo A13:i44
>> 2 apra il file dati.ods
>> 3 incolli i dati a partire dalla colona A del foglio 1 accodandoli a quelli
>> precedenti (es. A1:i1 - A2:i10 ecc.) le righe non sono quasi mai uguali ma
>> le colonne si
>> 4 salvi il file dati.ods e lo chiuda
>> ringrazio chi ha la pazienza e il tempo per aiutarmi.
>> Nicola
> Prova questo:
>
> Dim aFileProp(0) As New com.sun.star.beans.PropertyValue
> Sub Main
> oDoc = ThisComponent
> oSheet = oDoc.Sheets.getByName("Foglio1")
> oRange = oSheet.getCellRangeByName("A13:I44")
> oDoc.CurrentController.Select(oRange)
> oTransferable = oDoc.CurrentController.getTransferable()
> oDoc =
> StarDesktop.LoadComponentFromURL(ConvertToURL("/home/fatture/dati.ods"),
> "_default", 0, aFileProp())
> oSheet = oDoc.Sheets.getByName("Foglio1")
> oCellCursor = oSheet.createCursor()
> oCellCursor.gotoEndOfUsedArea(False)
> nEndRow = oCellCursor.getRangeAddress().endRow + 1
> oRange = oSheet.getCellRangeByPosition(0, nEndRow, 8, nEndRow +
> (44 - 13)) '0=A 8=I
> oDoc.CurrentController.Select(oRange)
> oDoc.CurrentController.insertTransferable(oTransferable)
> oDoc.store()
> oDoc.close(false)
> End Sub
>
> Ciao,
> Cesare
Ciao, mi sono accorto che il messaggio che ti ho inviato il 9 è stato
scartato dalla ML perché x errore l'ho postato in html.
Se può esserti ancora utile la macro è qui sopra...
Ciao,
Cesare
---------------------------------------------------------------------
Per cancellarsi: [email protected]
Per informazioni: http://www.openoffice.org/it/
Per avviare una nuova discussione: [email protected]
Archivi: http://mail-archives.apache.org/mod_mbox/incubator-ooo-utenti-it
