¿Cómo importar varios archivos de texto desde una carpeta a una hoja de cálculo?

Por ejemplo, aquí tienes una carpeta con varios archivos de texto y lo que quieres hacer es importar estos archivos de texto en una sola hoja de cálculo, como se muestra en la captura de pantalla a continuación. En lugar de copiar los archivos de texto uno por uno, ¿hay algún truco para importar rápidamente los archivos de texto de una carpeta a una hoja?

Importar múltiples archivos de texto desde una carpeta a una sola hoja con VBA

Importar archivo de texto a la celda activa con Kutools para Excel

Importar múltiples archivos de texto desde una carpeta a una sola hoja con VBA

Aquí hay un código VBA que puede ayudarte a importar todos los archivos de texto de una carpeta específica a una nueva hoja.

1. Habilita el libro en el que deseas importar los archivos de texto y presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, copia y pega el siguiente código VBA en la ventana del Módulo.

VBA: Importar múltiples archivos de texto desde una carpeta a una hoja

Sub Test()
'UpdatebyExtendoffice6/7/2016
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xWb.Name
            On Error GoTo 0
            xWb.Close False
        Next
    End If
End Sub

3. Presiona F5 para mostrar un cuadro de diálogo y selecciona una carpeta que contenga los archivos de texto que deseas importar. Ver captura de pantalla:

4. Haz clic en Aceptar. Luego, los archivos de texto se habrán importado al libro activo como hojas nuevas por separado.

Importar archivo de texto a la celda activa con Kutools para Excel

Si deseas importar un archivo de texto a una celda o rango específico, puedes aplicar la utilidad Insertar archivo en el cursor de Kutools para Excel.

Después de instalar gratuitamente Kutools para Excel, sigue los pasos a continuación:

1. Selecciona una celda donde deseas importar el archivo de texto y haz clic en Kutools Plus > Importar/ Exportar > Insertar archivo en el cursor. Ver captura de pantalla:

2. Luego aparecerá un cuadro de diálogo, haz clic en Examinar para mostrar el Seleccionar un archivo que se insertará en la posición del cursor de la celda, luego selecciona Archivos de texto desde la lista desplegable y luego elige el archivo de texto que deseas importar. Ver captura de pantalla:

3. Haz clic en Abrir > Aceptar, y el archivo de texto especificado se habrá insertado en la posición del cursor, ver captura de pantalla: