Vai al contenuto principale

Come combinare / importare più file CSV in più fogli di lavoro?

Se desideri importare più file CSV da una cartella come fogli di lavoro separati all'interno di una cartella di lavoro, come potresti gestire questo lavoro in Excel?

Importa più file CSV in fogli di lavoro separati con codice VBA

Importa più file CSV in fogli di lavoro separati con Kutools per Excel

Suddividi una cartella di lavoro in più file csv / pdf / txt / excel separati


Per importare rapidamente più file CSV in una cartella di lavoro, il seguente codice VBA potrebbe farti un favore, per favore fai come segue:

1. Tieni premuto il ALT + F11 in Excel per aprire il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: importa più file di testo in fogli di lavoro separati:

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. Quindi premere F5 tasto per eseguire questo codice e verrà visualizzata una finestra, vai alla cartella specifica e seleziona i file CSV che desideri importare in Excel, vedi screenshot:

doc importa csv nel foglio di lavoro 1

4. E poi clicca Apri pulsante, i file CSV selezionati sono stati importati come fogli di lavoro separati all'interno di una nuova cartella di lavoro.

5. Infine, puoi salvare la nuova cartella di lavoro di cui hai bisogno.


Se si dispone di Kutools for Excel, con il suo potente strumentoCombinare, puoi combinare o importare rapidamente più file CSV in un unico foglio di lavoro o più fogli di lavoro separati di cui hai bisogno.

Dopo l'installazione Kutools for Excel, per favore fai come questo:

1. Per favore clicca Kutools Plus > Combinare, vedi screenshot:

2. Nel Combina fogli di lavoro finestra di dialogo, selezionare Combina più fogli di lavoro da cartelle di lavoro in una cartella di lavoro, vedi screenshot:

doc importa csv nel foglio di lavoro 6

3. Nel Passo 2 della procedura guidata, fare clic su Aggiungi > Compila il per scegliere i file CSV che desideri combinare, vedi screenshot:

doc importa csv nel foglio di lavoro 7

4. Nel saltò fuori Apri finestra di dialogo, selezionare (* .csv) dall'elenco a discesa, quindi specificare i file CSV che si desidera unire.

doc importa csv nel foglio di lavoro 8

5. Quindi fare clic Apri pulsante e i file CSV selezionati sono stati importati nella finestra di dialogo, vedi screenshot:

doc importa csv nel foglio di lavoro 9

6. Nel Passo 3 , eseguire le seguenti operazioni:

(1.) Controllo Prima riga di ogni foglio di lavoro (commenti) dal Inserisci le informazioni del foglio di lavoro sezione, tutte le informazioni sui file csv verranno inserite nei fogli combinati come commenti;

(2.) Puoi rinominare i file CSV di cui hai bisogno;

(3.) puoi saltare i file csv vuoti quando incontri un file csv vuoto.

doc importa csv nel foglio di lavoro 10

7. Quindi fare clic Fine e dopo aver terminato la combinazione, è possibile specificare un nome file e una posizione per la nuova cartella di lavoro combinata. Vedi screenshot:

doc importa csv nel foglio di lavoro 11

8. Quindi fare clic Risparmi pulsante, nella finestra di dialogo spuntata, è possibile aprire il nuovo file fare clic e chiuderlo facendo clic Non, vedi screenshot:

doc importa csv nel foglio di lavoro 12

9. E poi puoi salvare questo scenario o meno come preferisci. Vedi screenshot:

doc importa csv nel foglio di lavoro 13

10. Alla fine, i file csv selezionati sono stati importati in una nuova cartella di lavoro con un foglio di lavoro separato, vedi screenshot:

doc importa csv nel foglio di lavoro 14

Scarica e prova gratuitamente Kutools per Excel ora!


Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

In alcuni casi, potresti voler dividere una cartella di lavoro in file CSV separati, Kutools per Excel L'utilità Dividi cartella di lavoro può completare questo lavoro in modo rapido e semplice.

Dopo l'installazione Kutools for Excel, per favore fai come questo:

1. Clic Kutools Plus > Cartella di lavoro > Cartella di lavoro divisa, vedi screenshot:

2. Nel Cartella di lavoro divisa la finestra di dialogo:

(1.) Controlla i fogli di lavoro che vuoi dividere;

(2.) E controlla Specifica salvaformato, quindi scegli il formato di file che desideri salvare;

(3.) Quindi fare clic su Diviso e specificare una cartella in cui inserire i file separati.

doc importa csv nel foglio di lavoro 3

3. E poi clicca OK per iniziare a dividere, la cartella di lavoro verrà divisa in file CSV separati di cui hai bisogno.

doc importa csv nel foglio di lavoro 4

Scarica e prova gratuitamente Kutools per Excel ora!


Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
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