.
En el presente post muestro una macro que permite leer archivos TXT delimitado o separado por tabulaciones, anteriormente se presentó una macro que permite leer archivos TXT y macro que permite leer archivos TXT delimitados por coma o punto y coma, quizás te interese ver dichos post si requieres aprender a leer archivos TXT con macro.
Recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.
Al abrir un archivo TXT mediante un editor de texto se podrá ver una serie de datos, que a simple vista parece basura, es decir un montón de datos difícil de comprender y sin sentido, no obstante en dicho archivo se encuentra toda la información de las URL de la WEB http://programarexcel.com y las URL del Canal de You Tube donde se encuentran los archivos tutoriales de cada post; sin embargo cuando se ejecuta la macro se puede observar como la macro al leer el archivo TXT delimitado por tabulaciones y se agregan en cada una de las columnas y filas los datos correspondientes.
A modo de plus el ejemplo contenido en este post, contiene todas las URL de la WEB http://programarexcel.com y las URL del Canal de You Tube donde se encuentran los archivos tutoriales de cada post; ello es importante, porque se puede usar a modo de índice ya que cuando se requiere programar una macro o automatizar Excel, se puede consultar este archivo de Excel, encontrar entre los cientos de ejemplos, algún ejemplo parecido a lo que se necesita y en base a ello modificar o adaptar a las necesidades de cada lector, teniendo un vínculo directo a la web para descargar el ejemplo y al canal de You Tube donde siempre se puede ver como funciona la macro y una explicación en detalle del código y funcionamiento de cada ejemplo.
El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}
Código que se inserta en un módulo
Sub opentxtseparadoTabulacion()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim myfile As Variant, cad As String, fila As Long, texto() As String
Dim h, j As Long, fil As Long, col As Long
ruta = ActiveWorkbook.Path
ChDir ruta
myfile = Application.GetOpenFilename(«Archivos Txt (*.txt*), *.txt*»)
If VarType(myfile) = vbBoolean Then Exit Sub
Open myfile For Input As #1
fil = 1
col = 1
Cells.Clear
While Not EOF(1)
Line Input #1, cad
texto = Split(cad, vbTab)
j = UBound(texto)For h = 0 To j
Cells(fil, col) = fil
Cells(fil, col).Value = texto(h)
col = col + 1
Next h
col = 1
fil = fil + 1
Wend
Close #1
MsgBox («Los datos se leyeron con éxito»), vbInformation, «AVISO»
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim myfile As Variant, cad As String, fila As Long, texto() As String
Dim h, j As Long, fil As Long, col As Long
ruta = ActiveWorkbook.Path
ChDir ruta
myfile = Application.GetOpenFilename(«Archivos Txt (*.txt*), *.txt*»)
If VarType(myfile) = vbBoolean Then Exit Sub
Open myfile For Input As #1
fil = 1
col = 1
Cells.Clear
While Not EOF(1)
Line Input #1, cad
texto = Split(cad, vbTab)
j = UBound(texto)
For h = 0 To j
Cells(fil, col) = fil
Cells(fil, col).Value = texto(h)
col = col + 1
Next h
col = 1
fil = fil + 1
Wend
Close #1
MsgBox («Los datos se leyeron con éxito»), vbInformation, «AVISO»
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends