Ga naar hoofdinhoud

Hoe een werkmap splitsen om Excel-bestanden in Excel te scheiden?

Mogelijk moet u een grote werkmap splitsen om Excel-bestanden te scheiden door elk werkblad van de werkmap op te slaan als een afzonderlijk Excel-bestand. U kunt bijvoorbeeld een werkmap opsplitsen in meerdere afzonderlijke Excel-bestanden en vervolgens elk bestand aan een andere persoon bezorgen om het af te handelen. Door dit te doen, kunt u ervoor zorgen dat bepaalde personen specifieke gegevens verwerken en uw gegevens veilig houden. Dit artikel introduceert manieren om een ​​grote werkmap te splitsen om Excel-bestanden te scheiden op basis van elk werkblad.

  1. Splits een werkmap om Excel-bestanden te scheiden met kopiëren en plakken
  2. Splits een werkmap om Excel-bestanden te scheiden met de functie Verplaatsen of Kopiëren
  3. Splits een werkmap om Excel-bestanden met VBA-code te scheiden
  4. Splits een werkmap om Excel / PDF / CSV / TXT-bestanden eenvoudig te scheiden met Kutools voor Excel

Splits een werkmap om Excel-bestanden te scheiden met kopiëren en plakken

Bij normaal gebruik Kopiëren commando en pasta commando kan een werkmap handmatig opslaan als een afzonderlijk Excel-bestand. Selecteer eerst het hele werkblad dat u als een afzonderlijk bestand wilt opslaan, maak een nieuwe werkmap en plak het in de nieuwe werkmap, aan het einde wordt het opgeslagen.

Dit is een gebruiksvriendelijke manier als u slechts een paar werkbladen als afzonderlijke bestanden wilt splitsen. Het moet echter tijdrovend en vervelend zijn om veel werkbladen te splitsen met handmatig kopiëren en plakken.


Splits een werkmap om Excel-bestanden te scheiden met de functie Verplaatsen of Kopiëren

Deze methode introduceert de functie Verplaatsen of Kopiëren om de geselecteerde bladen naar een nieuwe werkmap te verplaatsen of te kopiëren en op te slaan als een aparte werkmap. Ga als volgt te werk:

1. Selecteer de bladen in de werkbladtabbalk, klik met de rechtermuisknop en selecteer Verplaatsen of kopiëren vanuit het contextmenu. Zie screenshot:

Note: Vasthouden Ctrl toets, kunt u meerdere niet-aangrenzende bladen selecteren door ze een voor een te klikken in de bladtabbalk; vasthouden Shift -toets, kunt u meerdere aangrenzende bladen selecteren door op de eerste en de laatste in de werkbladtabbalk te klikken.

2. Selecteer in het dialoogvenster Verplaatsen of Kopiëren (nieuw boek) van het Boeken vervolgkeuzelijst, controleer het Maak een kopie optie en klik op de OK knop. Zie screenshot:

3. Nu worden alle geselecteerde bladen naar een nieuwe werkmap gekopieerd. Klik Dien in > Bespaar om de nieuwe werkmap op te slaan.

Splits snel een werkmap om Excel / PDF / TXT / CSV-bestanden in Excel te scheiden

Normaal gesproken kunnen we een werkmap splitsen in afzonderlijke Excel-bestanden met de extensie Verplaatsen of kopiëren functie in Excel. Maar Kutools voor Excel's Werkmap splitsen hulpprogramma kan u helpen eenvoudig een werkmap te splitsen en elk werkblad op te slaan als een afzonderlijk PDF / TEXT / CSV-bestand of werkmap in Excel.


ad split workbook Excel

Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu

Splits een werkmap om Excel-bestanden met VBA-code te scheiden

Met de volgende VBA-code kunt u snel meerdere werkbladen van de huidige werkmap splitsen om Excel-bestanden te scheiden, doe dit als volgt:

1. Maak een nieuwe map voor de werkmap die u wilt splitsen, omdat de gesplitste Excel-bestanden in dezelfde map blijven als deze hoofdwerkmap.

2. Houd de ALT + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.

3. Klikken Invoegen > Moduleen 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 de F5 sleutel om deze code uit te voeren. En de werkmap wordt opgesplitst om Excel-bestanden te scheiden in dezelfde map als de originele werkmap. Zie screenshot:

Note: Als een van de bladen dezelfde naam heeft met de werkmap, kan deze VBA niet werken.

Splits een werkmap om Excel / PDF / CSV / TXT-bestanden eenvoudig te scheiden met Kutools voor Excel

Als je Kutools for Excel geïnstalleerd, zijn Werkmap splitsen tool kan meerdere werkbladen gemakkelijk en snel als afzonderlijke Excel-bestanden splitsen met slechts een paar klikken.

Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu

1. Na het installeren Kutools for Excel, Klik Koetools Plus > Werkmap splitsen , zie screenshot:

2. In de Werkmap splitsen dialoogvenster voert u de volgende bewerkingen uit:
(1) Alle werkbladnamen zijn standaard aangevinkt. Als u sommige werkbladen niet wilt splitsen, kunt u ze uitschakelen;
(2) Controleer het Sla een type op keuze;
(3) Vanaf de Opslaan als type vervolgkeuzelijst, kies een bestandstype dat u wilt splitsen en opslaan.
(4) Klik vervolgens Split knop.

Note: Als u wilt voorkomen dat de verborgen of lege werkbladen worden gesplitst, kunt u de Sla verborgen werkbladen over or Sla lege werkbladen over doos.

3. Geef in het dialoogvenster Bladeren naar map een doelmap op om de gesplitste afzonderlijke bestanden op te slaan en klik op OK knop.

Nu worden de aangevinkte werkbladen opgeslagen als nieuwe gescheiden werkmappen. Elke nieuwe werkmap krijgt de naam van de oorspronkelijke werkbladnaam. Zie screenshot:

Kutools for Excel's Werkmap splitsen tool maakt het gemakkelijk om een ​​actieve werkmap op te splitsen in individuele Excel-bestanden (één bestand bevat één werkblad), CSV-bestanden, TXT-bestanden of PDF-bestanden als je wilt. U kunt instellen dat alle lege en verborgen werkbladen worden overgeslagen. Probeer gratis!


Demo: splits of bewaar elk werkblad van een werkmap als afzonderlijke Excel / txt / csv / pdf-bestanden


Kutools for Excel: Ruim 300 handige tools binnen handbereik! Start vandaag nog uw gratis proefperiode van 30 dagen zonder functiebeperkingen. Nu downloaden!

Gerelateerde artikelen:

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
Comments (113)
Rated 2.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Hello.
Both options work fine. But ..not satisfying my needs.
In each sheet i have 2 extra columns at and which contain vlookup formulas. And they all get exported to new files..
I cant have that.I also cant go and delete all formulas from all sheets then export , too much work.
Any solution to export but to ignore those columns with formulas?
Rated 2.5 out of 5
This comment was minimized by the moderator on the site
I tried this in Office 365 and it copies 8 sheets to separate files then gives me "run-time error '1004': Copy Method of Worksheet Class failed"
This comment was minimized by the moderator on the site
Hi there, did you use the vba code or Kutools?
This comment was minimized by the moderator on the site
I was able to use this macro once and it was great but now it will not work and I only get one file labeled as "Sheet 1" and it is blank, can anyone help?
This comment was minimized by the moderator on the site
Hello, how can we split the sheets tow by tow ==< what i mean is that i have an amount of sheets in one folder and I want tow split each tow successive sheets in one folder, i have tried to put changes on the basic code but i didn't succeed, I'm a beginner in this field if you can be held that is going to be a huge help
This comment was minimized by the moderator on the site
xWs.Copy
showing error in this area
This comment was minimized by the moderator on the site
Hello, I just tried the split data function based on the first column (about 90 partners). Half of the worksheets are named correctly while the other just have number of the sheet eventhough there is name of the partner in the column. Any help, please?
This comment was minimized by the moderator on the site
i have a data of 5 worksheets. Every worksheet has a common column (Branch). Can i convert the data into different excel files based on respective branches
This comment was minimized by the moderator on the site
Hi Sudarshan,
Kutools for Excel has an amazing feature – Split Data, which can quickly split data from a range or a sheet to multiple sheets based on values in the specified column. And these sheets are saved in a new workbook.

You can apply the Split Data feature to split each sheet based on the specified common column.
After splitting, you can apply the Combine Worksheets feature, also provided by Kutools for Excel, and combine all same name worksheets into one workbook.
This comment was minimized by the moderator on the site
excel which i want to split is having 3 spread sheet my requirement is to split the excel as per the sheet 1 and remaning to sheet to be contant when file split
This comment was minimized by the moderator on the site
Hi prateeksha,
In the fourth method on this webpage, the Split Workbook feature of Kutools for Excel is recommended, which will split every specified worksheet to individual PDF/CSV/TEXT/Workbooks.
This comment was minimized by the moderator on the site
Hey there,
I was wondering if we can use this macro to split the workbook into csv files
I've changed the VBA as below, replacing "xlsx" with "csv", but it doesn't work:
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".csv"
Thanks for your help!
This comment was minimized by the moderator on the site
Hi Kevin,
It recommends trying the fourth method to solve your problem. Kutools for Excel can be freely trial for 30 days. And the Split Workbook feature of Kutools for Excel can solve the problem easily.
This comment was minimized by the moderator on the site
Very helpful code. Just had one question. How can I make these excel files read-only. I tried the below but it did not work.

Application.ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations