Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo importar múltiples archivos de texto a varias hojas?

Suponiendo que hay varios archivos de texto en una carpeta de su computadora, ahora quiere importar estos archivos de texto a un libro de Excel y colocar cada archivo de texto en hojas de trabajo separadas. Copiar y pegar cada archivo de texto en la hoja de trabajo, uno por uno, perderá mucho tiempo, aquí puedo hablar sobre algunos trucos para resolver este problema.

Importe varios archivos de texto a hojas de trabajo separadas con código VBA

Divida un libro de trabajo en varios archivos de texto / pdf / csv / xlsx con Kutools para Excel


Combine / importe múltiples hojas de trabajo en una hoja de trabajo o libro de trabajo:
En su trabajo diario, combinar hojas de trabajo múltiples o libros de trabajo en una sola hoja de trabajo o libro de trabajo puede ser un trabajo enorme y que causa dolor de cabeza. Pero, si tienes Kutools for Excel, con su poderosa utilidad - Combinar, puede combinar rápidamente varias hojas de trabajo, libros de trabajo en una hoja de cálculo o libro de trabajo.
doc combine varias hojas de trabajo

flecha azul burbuja derecha Importe varios archivos de texto a hojas de trabajo separadas con código VBA


El siguiente código de VBA puede ayudarle a importar cada archivo de texto en hojas separadas dentro de un nuevo libro de trabajo a la vez, por favor haga lo siguiente:

1. Mantenga presionado el ALT + F11 teclas en Excel para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

Código de VBA: importe varios archivos de texto en hojas de trabajo separadas:

Sub CombineTextFiles()
'updateby Extendoffice 20151015
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3. Después de pegar el código anterior, presione F5 clave para ejecutar este código, y en la ventana emergente, especifique la carpeta que contiene los archivos de texto, vaya a la carpeta para seleccionar los archivos de texto que desea importar a las hojas de trabajo, vea la captura de pantalla:

doc importar múltiples archivos de texto 1

4. Luego haga clic Abierto botón, todos los archivos de texto seleccionados se han importado a un nuevo libro de trabajo y cada archivo se encuentra en una hoja de trabajo individualmente.

5. Por fin, puedes guardar el nuevo libro de trabajo como necesites.


flecha azul burbuja derecha Divida un libro de trabajo en varios archivos de texto / pdf / csv / xlsx con Kutools para Excel

A veces, es posible que deba realizar algunas operaciones opuestas de la tarea anterior, es decir, debe dividir un libro de trabajo en archivos de texto separados. Kutools for Excel, Libro de trabajo dividido la utilidad puede ayudarlo a resolver este trabajo de manera rápida y fácil.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente :( Descarga gratuita Kutools for Excel ahora! )

1. Active el libro de trabajo que desea dividir en varios archivos de texto.

2. Hacer clic Empresa > Libro de trabajo > Libro de trabajo dividido, mira la captura de pantalla:

Complementos de excel función de libro dividido

3. En la Libro de trabajo dividido caja de diálogo:

(1.) Consulte las hojas de trabajo que desea dividir.

(2.) Verificar Especificar formato de guardado, luego elija el formato de archivo que desea guardar, por ejemplo, puede elegir txt, csv, pdf, Xlsx or xls formato de archivo que necesita

(3.) Luego haz clic Mini Split botón, en el siguiente cuadro de diálogo especifique una carpeta para generar los archivos por separado.

Complementos de excel, cuadro de diálogo de libro de trabajo dividido  2 excel add-ins seleccionar ubicación

4. Luego haga clic OK y las hojas de trabajo seleccionadas se dividirán y guardarán en la carpeta que desee con el formato que necesite.

excel complementos archivos separados

Descarga gratuita Kutools for Excel ahora!


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Funciona con Office 2007-2019 y 365. Soporta todos los idiomas. Fácil despliegue en compañía. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Thuva · 2 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 2 years ago
    Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
  • To post as a guest, your comment is unpublished.
    Raul · 2 years ago
    How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
  • To post as a guest, your comment is unpublished.
    Vaibhav · 2 years ago
    Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
  • To post as a guest, your comment is unpublished.
    G · 2 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?
  • To post as a guest, your comment is unpublished.
    A · 2 years ago
    The code for "Import multiple text files to separate worksheets with VBA code" works for me, BUT cuts off the data of each cell at 255 characters. I think it is defaulting to GeneralFormat cell data, but I need it to be TextFormat. Unfortunately I cannot figure out how to adjust the code to fix this.
  • To post as a guest, your comment is unpublished.
    Pradip · 3 years ago
    I used Following code But Space Didn't Delimit.
    Turned Tab:=True, Space:=True, but it didn't work.
    My Txt file format is-
    ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104

    Any Solution?