Macro para importar Archivos de texto (.txt) a Excel

Macro para importar Archivos de texto (.txt) a Excel

   17 julio       Luis Reyes

---

Comúnmente al bajar información de muchos sistemas, esta se descarga en archivos de texto, y para poder analizar dicha información tenemos que importar este archivo a Excel.

En la actualidad hay muchos métodos para importar los archivos de texto a Excel, hoy les comparto esta macro para realizar esta tarea con una macro:

- Abre el editor de Visual Basic con las teclas ALT+F11.
- Inserta un módulo
- Pega el siguiente código:

Sub AbrirTXT()
       Application.ScreenUpdating = False 'Apagar el parpadeo de pantalla
       Application.DisplayAlerts = False 'Apagar Alertas
       Dim X As Variant
       X = Application.GetOpenFilename("Text Files (*.txt), *.txt, Add-in Files (*.txt), *.txt", 2, _
           "Abrir TXT", , True)
       For Y = 1 To UBound(X)
           Workbooks.Open X(Y)
       Next
End Sub

Descarga el Archivo