Leer / analizar el archivo de texto línea por línea en VBA

Solución:

para la lectura más básica de un archivo de texto, utilice open

ejemplo:

Dim FileNum As Integer
Dim DataLine As String

FileNum = FreeFile()
Open "Filename" For Input As #FileNum

While Not EOF(FileNum)
    Line Input #FileNum, DataLine ' read in data 1 line at a time
    ' decide what to do with dataline, 
    ' depending on what processing you need to do for each case
Wend

Encuentro que FileSystemObject con un TxtStream es la forma más fácil de leer archivos

Dim fso As FileSystemObject: Set fso = New FileSystemObject
Set txtStream = fso.OpenTextFile(filePath, ForReading, False)

Entonces con esto txtStream objeto tienes todo tipo de herramientas que intellisense recoge (a diferencia de usar el FreeFile() método) para que haya menos conjeturas. Además, no tiene que asignar un FreeFile y esperar que aún sea gratuito desde que lo asignó.

Puede leer un archivo como:

Do While Not txtStream.AtEndOfStream
    txtStream.ReadLine
Loop
txtStream.Close

NOTA: Esto requiere una referencia a Microsoft Scripting Runtime.

Por completitud; trabajar con los datos cargados en la memoria;

dim hf As integer: hf = freefile
dim lines() as string, i as long

open "c:blabla.bla" for input as #hf
    lines = Split(input$(LOF(hf), #hf), vbnewline)
close #hf

for i = 0 to ubound(lines)
    debug.? "Line"; i; "="; lines(i)
next

---

---

Utiliza Nuestro Buscador