Note: The other languages of the website are Google-translated. Back to English

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:

Opmerking:: 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 de 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. Gratis proefversie met volledige functionaliteit 30 dagen!
ad split workbook Excel

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! 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:

Opmerking:: 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 - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

1. Na het installeren Kutools for Excel, Klik Kutools 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.

Opmerking:: 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 bevat meer dan 300 handige tools voor Excel, gratis te proberen zonder beperking in 30 dagen. Download en gratis proef nu!

Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

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 elke dag honderden muisklikken!
officetab onderkant
Comments (110)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Ik heb gegevens in 4 verschillende bladen. Blad1 wordt genoemd als "A", Blad2 wordt genoemd als "B", Blad3 wordt genoemd als "C" en Blad4 wordt genoemd als "D". Noodzaak om de gegevens te splitsen in verschillende werkmappen en elk blad mag slechts 25 rijen hebben. De bestandsnaam moet worden genoemd als Blad1 A.xls, Blad2 A.xls als de gegevens worden gekopieerd van Blad A. Zodra Blad A leeg is, moet het de gegevens van Blad B kopiëren en moet het bladnummer van de laatste doorgaan, bijvoorbeeld Blad3 B.xls.
Dhanasekar Sakthivel
Deze opmerking is gemaakt door de moderator op de site
Wanneer ik "een werkmap splits om Excel-bestanden te scheiden met VBA-code", werkt het als een droom, maar blijft het formatteren zoals samengevoegde cellen en celuitlijning in de nieuwe spreadsheets niet doorgaan. Kan ik iets toevoegen zodat de opmaak hetzelfde blijft als de originelen?
Rebecca
Deze opmerking is gemaakt door de moderator op de site
De code werkte als een tierelier! Ja, niet alle opmaak is behouden. Geen probleem echter. Voor mij werden alle samengevoegde cellen in een tabel niet-samengevoegd. Het was heel eenvoudig om de originele tafel te selecteren, de schilder op te maken, de gekopieerde tafel te markeren en voila, zo goed als nieuw. Bedankt!
Daniel
Deze opmerking is gemaakt door de moderator op de site
Kolom A IP-adres Kolom B IP-naam Kolom C IP-pingsnelheid True (Dat is commando Pinging Status) Kolom D IP Pinging Rate False (dat is commando Pinging Status) Deze ip- en ip-namenlijst om uit te blinken en status is hetzelfde Excel-formaat ( dat is waar of onwaar Status)
Chandrasekar T
Deze opmerking is gemaakt door de moderator op de site
Geweldige code - redde de dag voor mij. Bedankt voor het posten.
terp
Deze opmerking is gemaakt door de moderator op de site
Ik heb een probleem met het toevoegen van code om de gesplitste bestanden op te slaan als Alleen-lezen. Waarom werkt dit niet of hoe doe ik dit? Sub Splitbook() MyPath = ThisWorkbook.Path For Each sht In ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ​​ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats ActiveWorkbook.SaveAs _th Filename:=Mijn pad & "\" & sht.Name & ".xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, ActiveWorkbook.Close savechanges:=False Volgende sht End Sub
KP
Deze opmerking is gemaakt door de moderator op de site
Echt een geweldige faciliteit.., geweldig...wauw..
Shatruthan singho
Deze opmerking is gemaakt door de moderator op de site
Geweldig script. Het heeft voor mij gewerkt zoals alles. Bedankt.
RAVISHANKAR
Deze opmerking is gemaakt door de moderator op de site
Handig script, maar ik ben op zoek naar verdere stappen om zelf een criterium uit een Excel te kiezen en automatisch in meerdere bestanden in te vullen
Sterrencor
Deze opmerking is gemaakt door de moderator op de site
Bedankt methode 1 was erg handig
vreugde
Deze opmerking is gemaakt door de moderator op de site
Dank u! Scheelde mij een hoop handmatige inspanning!
Frankie
Deze opmerking is gemaakt door de moderator op de site
VBA-instructies waren "perfect"! ... zelfs voor een beginner! Werkte geweldig!
slimmerik
Deze opmerking is gemaakt door de moderator op de site
Zeer nuttig! Bedankt voor het delen
Jennifer
Deze opmerking is gemaakt door de moderator op de site
Goede hulp!!! super makkelijk en handig :-)
ADO
Deze opmerking is gemaakt door de moderator op de site
Heb dit gebruikt en het werkte. Precies wat ik nodig had. Bedankt
revati
Deze opmerking is gemaakt door de moderator op de site
Werkt uitstekend, bedankt. Ik heb dit als een invoegtoepassing gemaakt en geïnstalleerd. Hoe voer ik het nu uit wanneer ik wil (zonder elke keer te moeten kopiëren en plakken)? Is er een knop die ik indruk of een functienaam die ik gebruik?
Lara
Deze opmerking is gemaakt door de moderator op de site
Er wordt een fout weergegeven in de regel 8.... xws cpy is een fout
Suzi
Deze opmerking is gemaakt door de moderator op de site
Het werkte voor mij nadat ik de Option Explicit had verwijderd, dus de variabele moest worden gedefinieerd. Ik zou echter graag willen weten hoe deze variabele moet worden gedefinieerd, omdat ik de optie Expliciete optie waardeer :)
Marie
Deze opmerking is gemaakt door de moderator op de site
Deze code en de KUtools tonen beide een fout na het converteren van 222 bestanden en na 222 bestanden werken beide niet meer.
Sanjay
Deze opmerking is gemaakt door de moderator op de site
Geachte heer, kunt u mij alstublieft details sturen hoe codering te splitsen s
nayeem khan
Deze opmerking is gemaakt door de moderator op de site
U kunt de onderstaande codering volgen. VBA-codering voor gesplitste bladen Alt+f11 Insert-module-f5 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 Bestandsnaam:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Sanjay
Deze opmerking is gemaakt door de moderator op de site
Werkbladen waren het product van het draaitabelrapport, nieuwe bestanden die door de code zijn gemaakt, behouden nog steeds de verbinding met de gegevensbron en kunnen worden gewijzigd. kan code worden gedaan om de draaitabelverbinding te verbreken, of een kopie van elk blad en verleden als waarden toevoegen om de verbinding te verwijderen?
denise
Deze opmerking is gemaakt door de moderator op de site
Geachte heer Sanjay, ik heb geprobeerd met de codes dat het maar voor een paar vellen werkt, maar het bestand dat ik probeer te splitsen heeft bijna 466 vellen. Mag ik de codes ervan weten? Dank u.
Rony
Deze opmerking is gemaakt door de moderator op de site
Kan ik uw modulescript opslaan in de PERSONAL Macro Workbook voor toekomstig gebruik?
Lisa
Deze opmerking is gemaakt door de moderator op de site
Kun je me alsjeblieft vertellen hoe ik massale e-mails kan verzenden met een gepersonaliseerde bijlage in Outlook .. Regrads, Yasir
Yasir Arfat
Deze opmerking is gemaakt door de moderator op de site
Hallo Yasir, U kunt geen gepersonaliseerde bijlage verzenden in Afdruk samenvoegen met Outlook. Ja, er zijn weinig externe tools, maar deze zijn erg duur en ook niet betrouwbaar. U kunt dit doen met Mozilla Thunderbird. U hoeft alleen de add-on voor Afdruk samenvoegen te downloaden en u kunt dit doen.
Sanjay
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties