Importar archivo plano conservando espacios
Espero que todo ok en tu vida. Tengo que grabar el código de una macro para importar un archivo plano (.txt) en Excel. El archivo plano tiene 4 espacios después de la posición 4, pero cuando intento importarlo, Excel se están perdiendo esos 4 espacios. Te adjunto la imagen en Excel y la del archivo plano en el que se marcan en un recuadro rojo los espacios que se están perdiendo.
¿Sabes de qué forma puedo importar ese archivo plano de tal forma que me conserve esos espacios?
Muchas gracias.
PD: Si necesitas el archivo plano, me dices a dónde te lo puedo enviar.
1 Respuesta
H o l a:
Envíame el archivo plano con algunos registros. También me envías el archivo de excel con los mismo registros que vienen en el archivo plano, pero me tienes que poner cómo deben quedar. Deberás ajustar los espacios de manera manual, para que yo pueda ver qués lo que necesitas.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “EL PIPE” y el título de esta pregunta.
Hola Dante. Ya te envié el correo.
Quedo atento.
Muchas gracias.
Hola Dante. Hemos insistido con ese archivo plano y no nos funciona.
¿Tú sabrías si es posible programar una macro que me abra ese archivo plano (que varía de nombre con la fecha actual y que lo tengo en una ruta en una carpeta); que copie toda la información y la pegue en la celda A1 de un libro de Excel tal cual como me lo sugeriste? Ya tengo la macro para la partición del texto en columnas, como debería quedar en Excel ese archivo, por si te sirve de algo.
Si necesitas que te vuelva a enviar a tu correo ese archivo plano junto con la macro de la partición, me avisas.
Muchas gracias.
Envíame otra vez el correo con el archivo
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “EL PIPE” y el título de esta pregunta.
Hola Dante. Ya te envié el correo.
Muchas gracias y me dices si debo valorar tus aportes de esta consulta que me han servido bastante.
Te anexo la macro para cargar el archivo
Sub ImportarArchivo()
'Por.Dante amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("archivo")
Set h11 = l1.Sheets("layout")
h1.Cells.Clear
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione archivo txt"
.Filters.Clear
.Filters.Add "Archivos txt", "*.txt"
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path & "\"
If .Show Then
Workbooks.OpenText Filename:=.SelectedItems.Item(1), _
Origin:=xlWindows, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, _
Space:=False, Other:=False, _
FieldInfo:=Array(1, 2), TrailingMinusNumbers:=True
Set l2 = ActiveWorkbook
Set h2 = l2.Sheets(1)
For i = 1 To h2.Range("A" & Rows.Count).End(xlUp).Row
n = 1
k = 1
For j = 4 To 372
h1.Cells(i, k) = Mid(h2.Cells(i, "A"), n, h11.Cells(j, "D"))
n = n + h11.Cells(j, "D")
k = k + 1
Next
Next
l2.Close False
End If
End With
MsgBox "Fin"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
