Importación txt a excel celda a celda, No coge todas las líneas(VB.net)

[Drako_18]

Buenas compañeros,

Comencemos por el principio...
Porqué tienes el For¿?
Con el While lees cada línea, pero.. ¿Y el For?

Lo que sí tienes que hacer es tener un contador de número de línea externo al While...
Y el código terminaría siendo algo así:

Dim iNumLinea As Integer = 0

While Not fileReader.EndOfStream
iNumLinea += 1 'Sumo 1 al contenido que ya tenga iNumLinea.
lineRead = fileReader.ReadLine()

cadena1 = lineRead.Substring(0, 11)
oSheet.Range(A & iNumLinea).Value = cadena1

cadena2 = lineRead.Substring(11, 11)
oSheet.Range(B & iNumLinea).Value = cadena2

cadena3 = lineRead.Substring(22, 5)
oSheet.Range(C & iNumLinea).Value = cadena3

cadena4 = lineRead.Substring(27, 40)
oSheet.Range(D & iNumLinea).Value = cadena4
End While


Es muy probable que el While en sí se pueda sustituir por algo más conveniente... Es cuestión de revisar más ejemplos en Inet..


Un saludo!!!