Hoe splitst u een werkmap op in afzonderlijke Excel-bestanden in Excel?

Normaal gesproken kunt u een werkmap handmatig opslaan als een afzonderlijk Excel-bestand door het Kopiëren-commando en het Plakken-commando te gebruiken. Selecteer eerst het volledige werkblad dat u als afzonderlijk bestand wilt opslaan, maak een nieuw werkblad aan, plak de inhoud daar en sla het vervolgens op.

Dit is een gebruiksvriendelijke methode als u slechts enkele werkbladen wilt splitsen in afzonderlijke bestanden. Bij het handmatig splitsen van veel werkbladen via kopiëren en plakken kan het proces echter tijdrovend en vervelend worden.

Deze methode maakt gebruik van de functie Verplaatsen of kopiëren om de Geselecteerde werkbladen naar een Nieuw werkblad te verplaatsen of te kopiëren en deze op te slaan als een afzonderlijke werkmap. Volg deze stappen:

1. Selecteer de bladen in het tabblad Tabbladbalk, klik er met de rechtermuisknop op en kies Verplaatsen of kopiëren in het contextmenu. Zie schermafbeelding:

Opmerking: Houd de toets Ctrl ingedrukt om meerdere niet-aangrenzende bladen te selecteren door ze één voor één aan te klikken in het tabblad Tabbladbalk; houd de Shift-toets ingedrukt om meerdere aangrenzende bladen te selecteren door op het eerste en het laatste blad in het tabblad Tabbladbalk te klikken.

2. Selecteer in het dialoogvenster Verplaatsen of kopiëren (nieuw boek) in de vervolgkeuzelijst Naar boek, schakel de optie Een kopie maken in en klik op de knop OK. Zie schermafbeelding:

3. Alle geselecteerde werkbladen worden nu gekopieerd naar een nieuw werkblad. Klik op Bestand > Opslaan om het nieuwe werkblad op te slaan.

Als u Kutools voor Excel hebt geïnstalleerd, kunt u met de Werkboek splitsen-functie meerdere werkbladen in slechts enkele muisklikken gemakkelijk en snel splitsen in afzonderlijke Excel-bestanden.

1. Na installatie van Kutools voor Excel, klikt u op KUTOOLS PLUS > Werkboek splitsen. Zie schermafbeelding:

2. Voer in het dialoogvenster Werkboek splitsen de volgende stappen uit:
(1) Standaard zijn alle werkbladnamen geselecteerd. Als u bepaalde werkbladen niet wilt splitsen, kunt u de selectie hiervan ongedaan maken;
(2) Schakel de optie Type opslaan in;
(3) Kies in de vervolgkeuzelijst Opmaak opgeven voor opslaan het gewenste bestandstype waarnaar u het bestand wilt splitsen en opslaan.
(4) Klik vervolgens op de knop Splitsen.

Opmerking: Als u verborgen of lege werkbladen wilt overslaan bij het splitsen, vinkt u het vakje Verborgen werkbladen negeren of Lege werkbladen negeren aan.

3. Geef in het dialoogvenster Map zoeken een doelmap op waarin de afzonderlijke gesplitste bestanden moeten worden opgeslagen en klik op de knop OK.

De geselecteerde werkbladen zijn nu opgeslagen als nieuwe, afzonderlijke werkmappen. Elk nieuw werkblad krijgt de naam van het oorspronkelijke werkblad. Zie schermafbeelding:

Met de Kutools voor Excel-functie Werkboek splitsen splitst u het huidige werkboek eenvoudig in afzonderlijke Excel-bestanden (één bestand per werkblad), CSV-, TXT- of PDF-bestanden, precies zoals u dat nodig heeft. U kunt ook instellen dat lege en verborgen werkbladen worden overgeslagen.Probeer gratis!

De volgende VBA-code helpt u snel meerdere werkbladen van Huidig werkboek te splitsen in afzonderlijke Excel-bestanden. Volg deze stappen:

1. Maak een back-up van de werkmap die u wilt splitsen, want de gesplitste Excel-bestanden blijven in dezelfde map als deze hoofdwerkmap.

2. Houd de toetsencombinatie ALT + F11 ingedrukt in Excel om het venster Microsoft Visual Basic for Applications te openen.

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

VBA: Splits een werkmap in meerdere werkmappen en sla deze op 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 toets F5 om deze code uit te voeren. De werkmap wordt dan gesplitst in afzonderlijke Excel-bestanden in dezelfde map als de oorspronkelijke werkmap. Zie schermafbeelding:

Opmerking: Als een van de werkbladen dezelfde naam heeft als de werkmap, werkt deze VBA-code niet.

Combineer meerdere werkmappen tot één werkmap

Sla een selectie op als afzonderlijk bestand