Saltar al contenido principal

¿Cómo combinar / importar varios archivos csv en varias hojas de trabajo?

Si desea importar varios archivos csv de una carpeta como hojas de trabajo separadas dentro de un libro de trabajo, ¿cómo podría manejar este trabajo en Excel?

Importe varios archivos csv en hojas de trabajo separadas con código VBA

Importe varios archivos csv en hojas de trabajo separadas con Kutools para Excel

Divida un libro de trabajo en varios archivos csv / pdf / txt / excel separados


Para importar rápidamente varios archivos csv a un libro de trabajo, el siguiente código VBA puede hacerle un favor, haga lo siguiente:

1. Mantenga pulsado 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 el Módulo Ventana.

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

Sub CombineCsvFiles()
'updateby Extendoffice
    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 (*.csv), *.csv", , "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
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    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. Entonces presione F5 para ejecutar este código, y aparecerá una ventana, vaya a la carpeta específica y seleccione los archivos csv que desea importar a Excel, vea la captura de pantalla:

doc importar csv a la hoja de trabajo 1

4. Y luego haz clic Abierto , los archivos csv seleccionados se han importado como hojas de trabajo separadas dentro de un nuevo libro de trabajo.

5. Finalmente, puede guardar el nuevo libro de trabajo cuando lo necesite.


Si tiene Kutools for Excel, con su poderosa herramienta-Combinar, puede combinar o importar rápidamente varios archivos csv en una sola hoja de trabajo o en varias hojas de trabajo separadas según lo necesite.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Por favor haz click Kutools Más > Combinar, ver captura de pantalla:

2. En Combinar hojas de trabajo cuadro de diálogo, seleccione Combine varias hojas de trabajo de libros de trabajo en un libro de trabajo, ver captura de pantalla:

doc importar csv a la hoja de trabajo 6

3. En la Paso 2 del asistente, haga clic en Añada > Archive para elegir los archivos csv que desea combinar, vea la captura de pantalla:

doc importar csv a la hoja de trabajo 7

4. En el estalló Abierto diálogo, seleccionar (* .csv) en la lista desplegable y, a continuación, especifique los archivos csv que desea combinar.

doc importar csv a la hoja de trabajo 8

5. Luego haga clic Abierto y los archivos csv seleccionados se han importado al cuadro de diálogo, vea la captura de pantalla:

doc importar csv a la hoja de trabajo 9

6. En la Paso 3, realice las siguientes operaciones:

(1.) Comprobación Primera fila de cada hoja de trabajo (comentarios) del desplegable Insertar información de la hoja de trabajo sección, toda la información de los archivos csv se insertará en las hojas combinadas como comentarios;

(2.) Puede cambiar el nombre de los archivos csv según lo necesite;

(3.) puede omitir los archivos csv en blanco cuando encuentre un archivo csv en blanco.

doc importar csv a la hoja de trabajo 10

7. Luego haga clic Acabado y, después de finalizar la combinación, puede especificar un nombre de archivo y una ubicación para su nuevo libro combinado. Ver captura de pantalla:

doc importar csv a la hoja de trabajo 11

8. Luego haga clic Guardar , en el cuadro emergente emergente, puede abrir el nuevo archivo, haga clic en y ciérrelo haciendo clic en No, ver captura de pantalla:

doc importar csv a la hoja de trabajo 12

9. Y luego puedes guardar este escenario o no como quieras. Ver captura de pantalla:

doc importar csv a la hoja de trabajo 13

10. Por fin, sus archivos csv seleccionados se han importado a un nuevo libro de trabajo con una hoja de trabajo separada, vea la captura de pantalla:

doc importar csv a la hoja de trabajo 14

¡Descargue y pruebe Kutools para Excel ahora!


Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

En cierto caso, es posible que desee dividir un libro de trabajo en archivos csv separados, la utilidad Libro de trabajo dividido de Kutools for Excel puede terminar este trabajo de manera rápida y fácil.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Hacer clic Kutools Más > Libro de trabajo > Libro de trabajo dividido, ver captura de pantalla:

2. En Libro de trabajo dividido caja de diálogo:

(1.) Verifique las hojas de trabajo que desea dividir;

(2.) Y comprobar Especificar guardarformato, luego elija el formato de archivo que desea guardar;

(3.) Luego haga clic en Mini Split y especifique una carpeta para colocar los archivos separados.

doc importar csv a la hoja de trabajo 3

3. Y luego haz clic OK para comenzar a dividir, el libro de trabajo se dividirá en archivos csv separados que necesite.

doc importar csv a la hoja de trabajo 4

¡Descargue y pruebe Kutools para Excel ahora!


Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


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

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi!
I've been using this code to combine evaluation forms into one excel sheet. However, it reads the dates in the US format of MM/DD/YYYY instead of the European format which I use, which is DD/MM/YYYY. The results is a column that looks like this:

11-4-2021 17:13
22/10/2021 09:41:32 (This is october 22nd, but it's not recognized)
7-12-2022 14:55 (This is mistakenly read as December 7th, when it should be July 12th.)
27/10/2021 16:53:19
29/10/2021 09:44:26
11-1-2021 11:36
11-2-2021 14:11
17/08/2022 16:46:06
11-1-2021 10:49
8-10-2022 12:19
22/10/2021 14:54:58
17/11/2021 13:48:54
26/10/2021 20:13:37
22/10/2021 16:26:13

How can I prevent this from happening? I saw a comment on another post that suggested putting 'Local=True' somewhere, but I've not been able to figure out where to put that so that the CSV files load correctly. Any help is appreciated!
This comment was minimized by the moderator on the site
Hello this vba macro is great, but i want it to be launched by a button click on another workbook, how can i do that ?
This comment was minimized by the moderator on the site
Thank you. The code works well
This comment was minimized by the moderator on the site
Thank you . Very handy
This comment was minimized by the moderator on the site
Thank you! The code was very useful
This comment was minimized by the moderator on the site
Thank you for sharing this code. It is exactly what I was looking for. Sadly it is not working as well as I hoped it would. I am receiving an error message every time the code is run. ERROR: "The name is already taken. Try a different one." Notes: - I am trying to combine four csv files - All of the csv files have the same name "file_name.csv, file_name(1).csv, etc..." The code combines the first two csv files into one workbook and the the third file into its own workbook. The fourth file never had a chance because of the error. If anyone has some thoughts as how to go about fixing this issue I would greatly appreciate your feedback. Thank you all in advanced for you time. Best regards, Andrew
This comment was minimized by the moderator on the site
Thank you for the code on combining files. I however want to have the multiple files in the workbook I am currently working with, not for the code to create a new workbook. How do I go about achieving that?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations