Buenas tardes,
Tengo un problema a ver si me podéis ayudar.
La cuestión es que estoy haciendo un programa que me pase una cadena de texto (leo el TXT línea a línea) a una hoja de excel después de dividir dicha cadena con "substring" por donde me conviene.
Mi dolor de cabeza viene en el While y el For que estoy usando
Código:
While Not fileReader.EndOfStream
For numero = 2 To 4
lineRead = fileReader.ReadLine()
cadena1 = lineRead.Substring(0, 11)
oSheet.Range(A & numero).Value = cadena1
cadena2 = lineRead.Substring(11, 11)
oSheet.Range(B & numero).Value = cadena2
cadena3 = lineRead.Substring(22, 5)
oSheet.Range(C & numero).Value = cadena3
cadena4 = lineRead.Substring(27, 40)
Next
End While
Problema1: No me coge todas las líneas del texto, solo me pinta las 3 últimas
Problema2: El "to" del "For", lo tengo que modificar a mano ya que si hay menos líneas el programa muere.
Preguntas:
¿Que está mal para que no me coja el total de las líneas? (las que exporta las traspasa correctamente)
¿Sabéis como puedo hacer para que me encuentre automáticamente la última línea e indicarla en el "To"?
Gracias de antemano y un saludo