tu hai parlato di varie righe da leggere dal file, ma nel tuo esempio cerchi
di leggere una sola riga e di metterla in una sola cella usando come
riferimento un range di celle a cui ne appartiene una sola.
L'esempio seguente funziona:
Sub ooo
GlobalScope.BasicLibraries.LoadLibrary("Tools")
dim array$(4)
'ho dimensionato la variabile a 5 in quanto nel mio file di prova da leggere
ho messo 5 righe
Dim oDocins as object
oDocins = ThisComponent
Dim oSheetins as object
oSheetins = oDocins.Sheets.GetByName("importato")
Dim oCellins as object
for i = 0 to 4
'ho creato un ciclo a 5 per leggere e scrivere direttamente tutte le righe
LoadDataFromFile("/home/fabio/file.txt", Array$())
'qui leggo l'intero contenuto del file e lo metto nell'array
oCellins = oSheetins.GetCellByPosition(0,i)
'qui seleziono la cella della colonna A (indicata con 0) e della riga i che
varia in base al ciclo
oCellins.string = Array$(i)
'qui scrivo nella cella il contenuto dell'array alla riga i
next i
' fine del ciclo
End Sub
l'ho testata e mi scrive nelle celle da A1 a A5 le 5 righe del file.
Ciao
FaBBio
P.S. ho visto che hai già risolto, ma ti scrivo lo stesso perché almeno la
soluzione resta nell'archivio della mailing list e se qualcuno in futuro ha
lo stesso problema almeno lo trova.
