Hoe combineer of importeer ik meerdere CSV-bestanden in afzonderlijke werkbladen?
Hoe importeert u meerdere CSV-bestanden uit een map als afzonderlijke werkbladen in één werkmap in Excel?
Importeer meerdere CSV-bestanden in afzonderlijke werkbladen met VBA-code
Importeer meerdere CSV-bestanden in afzonderlijke werkbladen met Kutools voor Excel
Splits een werkmap in meerdere afzonderlijke CSV-/PDF-/TXT-/Excel-bestanden-bestanden
Importeer meerdere CSV-bestanden in afzonderlijke werkbladen met VBA-code
Om snel meerdere CSV-bestanden naar één werkmap te importeren, helpt de volgende VBA-code u uitstekend. Volg deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt in Excel om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Importeer meerdere Tekstbestand in afzonderlijke werkbladen:
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. Druk vervolgens op de toets F5 om deze code uit te voeren. Er verschijnt een venster; ga naar de desbetreffende map en selecteer de CSV-bestanden die u wilt importeren in Excel. Zie schermafbeelding:
4. Klik daarna op de knop Openen, waarna de geselecteerde CSV-bestanden als afzonderlijke werkbladen in een nieuw werkmapje worden geïmporteerd.
5. Tot slot kunt u het nieuwe werkblad opslaan zoals u dat wilt.
Importeer meerdere CSV-bestanden in afzonderlijke werkbladen met Kutools voor Excel
Als u Kutools voor Excel hebt, kunt u met de krachtige functie Combineren snel meerdere CSV-bestanden combineren of importeren in één enkel werkblad of in meerdere afzonderlijke werkbladen—precies zoals u wilt.
Na installatie van Kutools voor Excel, volgt u deze stappen:
1. Klik op KUTOOLS PLUS > Combineren, zie schermafbeelding:
2.In het dialoogvenster Werkbladen samenvoegenklikt u op Selecteer alstublieft Werkbladen kopiëren vanuit meerdere werkmappen naar één werkmap, zie schermafbeelding:
3. In Stap 2 van de wizard klikt u op Toevoegen > Bestand om de CSV-bestanden te selecteren die u wilt combineren. Zie schermafbeelding:
4. In het venster Openen selecteert u (*.csv) in de keuzelijst en geeft u de CSV-bestanden op die u wilt samenvoegen.
5. Klik daarna op de knop Openen. Uw geselecteerde CSV-bestanden worden dan geïmporteerd in het dialoogvenster, zoals te zien is in de schermafbeelding:
6. Voer in Stap 3 de volgende handelingen uit:
(1.) Schakel In de eerste rij van elk werkblad (als opmerkingen)in bij de sectie Werkbladinformatie toevoegen, zodat alle informatie van de CSV-bestanden als opmerkingen wordt ingevoegd in de gecombineerde bladen;
(2.) U kunt de CSV-bestanden naar wens hernoemen;
(3.) U kunt lege CSV-bestanden overslaan zodra u er een tegenkomt.
7. Klik daarna op de knop Voltooien. Nadat het combineren is afgerond, kunt u een bestandsnaam en locatie opgeven voor uw nieuwe gecombineerde werkmap. Zie schermafbeelding:
8. Klik vervolgens op de knop Opslaan. In het verschijnende bevestigingsvenster kunt u het gegenereerde bestand openen door op Ja te klikken, of het venster sluiten door op Nee te klikken. Zie schermafbeelding:
9. Daarna kunt u dit scenario naar wens opslaan of overslaan. Zie de schermafbeelding:
10. Ten slotte zijn uw geselecteerde CSV-bestanden geïmporteerd in een nieuw werkblad met afzonderlijke tabbladen. Zie de schermafbeelding:
Download en probeer Kutools voor Excel nu gratis!
Splits een werkmap in meerdere afzonderlijke CSV-/PDF-/TXT-/Excel-bestanden-bestanden
In bepaalde gevallen wilt u uw werkmap mogelijk splitsen in afzonderlijke CSV-bestanden. Met de functie ‘Werkboek splitsen’ van Kutools voor Excel gaat dat snel en eenvoudig.
Na installatie van Kutools voor Excel, volgt u deze stappen:
1. Klik op KUTOOLS PLUS > Werkmap > Werkboek splitsen, zie schermafbeelding:
2.In het dialoogvenster Werkboek splitsen:
(1.) Selecteer de werkbladen die u wilt splitsen;
(2.) Schakel Specificeer opslagformaatin en kies het Bestandstype waarin u wilt opslaan;
(3.) Klik vervolgens op de knop Splitsen en geef een map op waarin de afzonderlijke bestanden moeten worden opgeslagen.
3. Klik daarna op OK om het splitsen te starten. De werkmap wordt gesplitst in de gewenste afzonderlijke CSV-bestanden.
Download en probeer Kutools voor Excel nu gratis!
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins