yahoo-pier_andreit ha scritto:
grazieeeeeeeeeeeee funzionaaaaaaaaaaaaa :-))))
estratta dalla tua, scrive le righe di un file di testo in una tabella
di calc
perfetto
l'ho provata anche con un file ods ma mi da un macello, come si accede
alle celle di un file ods senza aprirlo??
Dove sto usando la macro e' un file .ods che importa da un file .csv
(testo).
Senza aprirlo non l'ho mai fatto, forse al capitolo 5 del libro
Starbasic819-1329.pdf
(non ricordo l'url dove l'ho scaricato... ma te lo posso mandare 1,3 MB).
Importare da un file .ods usa Inserisci->tabella da file.
ciao
Beppe
sub InsertFile
dim oUcb as object
dim oFile as object
DIM oInputStream as object
dim sNomeFile as STRING
dim sRiga(100)
Dim oSheet as Object
dim i as integer
dim u as integer
Dim oSheet2 as object
Dim oCell2 as object
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
oInputStream = createUnoService("com.sun.star.io.TextInputStream")
sNomeFile = ConvertToUrl("/home/pla/ooo-dati.txt")
oFile = oUcb.OpenFileReadWrite(sNomeFile)
oInputStream.SetInputStream(oFile.GetInputStream())
for u = 0 to 100
sRiga(u) = oInputStream.readLine(u)
oSheet2 = ThisComponent.Sheets.getByIndex( 0 )
oCell2 = oSheet2.GetCellByPosition( 0, u)
oCell2.String = sRiga(u)
next u
--
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]
