Enter en un .txt
Hola que tal, espero se encuentren bien...
Tengo un problema con una macro que cree en VBA de Excel. Esta macro crea varios archivos ".txt" dependiendo del número de filas que el archivo tenga, sin embargo al final de cada archivo me genera un enter y no sé como decirle que no lo haga.
El punto es que cada archivo de texto debe contener 30 registros, la ventaja que tenemos es que la información siempre se encuentra en una sola columna que es la "A". Ahora lo primero que se hace es saber la última fila, y dos ciclos para que copie dato por dato en el archivo. Dentro un ciclo se crea cada libro, y se copia, guarda y cierra el archivo.
Gracias por su apoyo!
El código que manejo es el siguiente:
Range("A1").Select
Selection.End(xlDown).Select
fila = Selection.Row
libros = fila / 30
If Val(libros) > Format(Val(libros), "#") Then libros = Format(libros + 1, "#")
If Val(libros) < Format(Val(libros), "#") Then libros = Format(libros, "#")
Range("A1").Select
tramo = 0
For i = 1 To libros
tramo = tramo + 30
Open "Ruta" & i & ".txt" For Output As #i
For j = Selection.Row To tramo
Range("a" & j).Select
Print #i, Trim(ActiveCell)
'If j = 29 Then Stop
Next j
tramo = Selection.Row
Range("a" & j).Select
Close #i
Next i
Tengo un problema con una macro que cree en VBA de Excel. Esta macro crea varios archivos ".txt" dependiendo del número de filas que el archivo tenga, sin embargo al final de cada archivo me genera un enter y no sé como decirle que no lo haga.
El punto es que cada archivo de texto debe contener 30 registros, la ventaja que tenemos es que la información siempre se encuentra en una sola columna que es la "A". Ahora lo primero que se hace es saber la última fila, y dos ciclos para que copie dato por dato en el archivo. Dentro un ciclo se crea cada libro, y se copia, guarda y cierra el archivo.
Gracias por su apoyo!
El código que manejo es el siguiente:
Range("A1").Select
Selection.End(xlDown).Select
fila = Selection.Row
libros = fila / 30
If Val(libros) > Format(Val(libros), "#") Then libros = Format(libros + 1, "#")
If Val(libros) < Format(Val(libros), "#") Then libros = Format(libros, "#")
Range("A1").Select
tramo = 0
For i = 1 To libros
tramo = tramo + 30
Open "Ruta" & i & ".txt" For Output As #i
For j = Selection.Row To tramo
Range("a" & j).Select
Print #i, Trim(ActiveCell)
'If j = 29 Then Stop
Next j
tramo = Selection.Row
Range("a" & j).Select
Close #i
Next i
1 Respuesta
Respuesta de duainsulch
1