sintassi:
Dim numerofile As Long

numerofile = FreeFile()

• legge solo le prima righe del file di testo

Line Input #numerofile, variabile memorizza nella variabile la riga di testo corrente e va bella riga dopo
Line Input #numerofile, variabile memorizza nella variabile la riga di testo corrente e va bella riga dopo
Line Input #numerofile, variabile memorizza nella variabile la riga di testo corrente e va bella riga dopo
...





legge tutto il file fino alla fine

Do Until EOF(numerofile) si usa il comando EOF() per scorrere tutto il file di testo fino alla fine



Line Input #numerofile, variabile memorizza nella variabile la riga di testo corrente e va bella riga dopo
...



Loop





legge solo le prima righe del file di testo

For riga = 1 to X

Line Input #numerofile, variabile memorizza nella variabile la riga di testo corrente e va bella riga dopo

Next riga

esempio: ciclo legge file e scrive nel foglio attivo Excel + memorizza ultima riga in una variabile
Dim numerofile As Long

numerofile = FreeFile()

riga = 1
Do Until EOF(numerofile) finché non raggiunge la fine del file

Line Input #numerofile, rigatesto memorizza la riga di testo
Range("A" & riga) = "'" & rigatesto aggiungo il simbolo ' per convertire in testo ed evitare che le formule creano problemi nelle celle
ultimariga = rigatesto memorizzo nella variabile "ultimariga" il testo dell'ultima riga del foglio
riga = riga + 1

Loop

esempio: leggo un file e divido le righe usando un separatore
' variabili

Const Separatore As String = ","
Const nomefile As String = "C:\Users\AC404\Downloads\test.txt"

Dim numerofile As Long
Dim riga
Dim colonna
Dim testocella

numerofile = FreeFile()
riga = 1

Open nomefile For Input As #numerofile

Do Until EOF(numerofile)

' leggo la riga attuale

Line Input #numerofile, rigatesto

' divido il testo della riga in base al separatore e scrivo nelle varie celle

testocella = Split(rigatesto, Separatore)
For colonna = 0 To UBound(testocella)

Cells(riga, colonna + 1) = testocella(colonna)

Next colonna

riga = riga + 1

Loop

Close #numerofile