Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

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 > Moduloe incolla il codice seguente nel file Modulo 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. Nell' 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 l'utilità Cartella di lavoro divisa di Excel può completare questo lavoro rapidamente e facilmente.

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. Nell' 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

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!
fondo officetab
Say something here...
symbols left.
You are guest
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.
    Guest · 3 months ago
    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 ?
  • To post as a guest, your comment is unpublished.
    Duong · 7 months ago
    Thank you. The code works well
  • To post as a guest, your comment is unpublished.
    Rohit · 2 years ago
    Thank you . Very handy
  • To post as a guest, your comment is unpublished.
    Amit · 2 years ago
    Thank you! The code was very useful
  • To post as a guest, your comment is unpublished.
    Andrew · 4 years ago
    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
  • To post as a guest, your comment is unpublished.
    Mary · 5 years ago
    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?