Hoe een werkboek splitsen in afzonderlijke Excel-bestanden in Excel?

Normaal gesproken kun je met behulp van de Kopieer-opdracht en Plak-opdracht een werkboek handmatig opslaan als een afzonderlijk Excel-bestand. Selecteer eerst het hele werkblad dat je wilt opslaan als een apart bestand, maak een nieuw werkboek aan en plak het vervolgens in het nieuwe werkboek en sla het ten slotte op.

Dit is een gemakkelijk te gebruiken methode als je slechts een paar werkbladen als afzonderlijke bestanden wilt splitsen. Het kan echter tijdrovend en omslachtig zijn om veel werkbladen handmatig te splitsen met kopiëren en plakken.

Deze methode introduceert de functie Verplaatsen of Kopiëren om geselecteerde werkbladen naar een nieuw werkboek te verplaatsen of kopiëren en op te slaan als een apart werkboek. Volg de volgende stappen:

1. Selecteer de werkbladen in de tabbalk van de werkbladen, klik met de rechtermuisknop en selecteer Verplaatsen of Kopiëren uit het contextmenu. Zie screenshot:

Opmerking: Houd de Ctrl toets ingedrukt, dan kun je meerdere niet-aangrenzende werkbladen selecteren door ze één voor één aan te klikken in de tabbalk; houd de Shift toets ingedrukt, dan kun je meerdere aangrenzende werkbladen selecteren door op de eerste en laatste te klikken in de tabbalk.

2. In het dialoogvenster Verplaatsen of Kopiëren, selecteer (nieuw boek) uit de Naar boek keuzelijst, vink de optie Maak een kopie aan en klik op de OK knop. Zie screenshot:

3. Nu zijn alle geselecteerde werkbladen gekopieerd naar een nieuw werkboek. Klik op Bestand > Opslaan om het nieuwe werkboek op te slaan.

Als je Kutools voor Excel hebt geïnstalleerd, kan het hulpprogramma Werkboek Splitsen meerdere werkbladen snel en gemakkelijk splitsen in afzonderlijke Excel-bestanden met slechts een paar klikken.

1. Nadat je Kutools voor Excelhebt geïnstalleerd, klik op Kutools Plus > Werkboek Splitsen , zie screenshot:

2. In het Werkboek Splitsen dialoogvenster, voer de volgende acties uit:
(1) Alle werkbladnamen zijn standaard aangevinkt. Als je sommige werkbladen niet wilt splitsen, kun je de selectie ervan ongedaan maken;
(2) Vink de Sla een type op optie aan;
(3) Kies in de Opslaan als type keuzelijst een bestandstype dat je wilt splitsen en opslaan.
(4) Klik vervolgens op de Splitsen knop.

Opmerking: Als je wilt voorkomen dat verborgen of lege werkbladen worden gesplitst, kun je de optie Verbogen werkbladen overslaan of Lege werkbladen overslaan aanvinken.

3. In het Bladeren naar map-dialoogvenster, geef een doelmap op om de gesplitste bestanden op te slaan en klik op de OK knop.

Nu zijn de aangevinkte werkbladen opgeslagen als nieuwe gescheiden werkboeken. Elk nieuw werkboek is genoemd naar de originele werkbladnaam. Zie screenshot:

Kutools voor Excel's Werkboek Splitsen-hulpprogramma maakt het gemakkelijk om het actieve werkboek te splitsen in individuele Excel-bestanden (één bestand bevat één werkblad), CSV-bestanden, TXT-bestanden of PDF-bestanden zoals je nodig hebt. Je kunt instellen om alle lege en verborgen werkbladen over te slaan. Probeer het gratis uit!

De volgende VBA-code kan helpen om snel meerdere werkbladen van het huidige werkboek te splitsen in afzonderlijke Excel-bestanden, volg de volgende stappen:

1. Maak een nieuwe map aan voor het werkboek dat je wilt splitsen, omdat de gesplitste Excel-bestanden in dezelfde map blijven als dit hoofdwerkboek.

2. Druk tegelijkertijd op de toetsen ALT + F11 in Excel, waarmee het Microsoft Visual Basic for Applications-venster wordt geopend.

3. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA: Een werkboek splitsen in meerdere werkboeken en opslaan in dezelfde map

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Druk op de F5 toets om deze code uit te voeren. En het werkboek wordt gesplitst in afzonderlijke Excel-bestanden in dezelfde map als het originele werkboek. Zie screenshot:

Opmerking: Als een van de werkbladen dezelfde naam heeft als het werkboek, werkt deze VBA niet.

Meerdere werkboeken combineren tot één werkboek

Een selectie opslaan als individueel bestand