Hoe exporteert en slaat u elk werkblad op als een afzonderlijk nieuw werkblad in Excel?
Het exporteren en opslaan van afzonderlijke werkbladen als aparte werkmappen in Excel is een veelvoorkomende taak, vooral bij het delen of ordenen van gegevens. Hoewel het handmatig kopiëren en plakken van werkbladen naar Nieuw werkblad een optie is, kan dit tijdrovend en vervelend zijn, met name bij werkmappen met meerdere bladen. In deze handleiding bespreken we verschillende methoden stap voor stap, zodat u de beste oplossing kunt kiezen op basis van uw behoeften en expertise.
Werkbladen één voor één opslaan als Nieuw werkblad met de opdracht Verplaatsen of kopiëren
Met de opdracht „Verplaatsen of kopiëren" kunt u snel één of meerdere werkbladen naar een nieuw werkblad verplaatsen of kopiëren.
Stap 1: Selecteer Werkbladnaam in de tabbladbalk. Houd de toets Ctrl ingedrukt en klik op de bladtabs om meerdere werkbladen te selecteren.
Stap 2: Klik met de rechtermuisknop op de werkbladnaam en selecteer ‘Verplaatsen of kopiëren’ in het contextmenu.
Stap 3: Selecteer in het dialoogvenster 'Verplaatsen of kopiëren' de optie '(nieuw boek)' in de vervolgkeuzelijst 'Geselecteerde werkbladen verplaatsen naar boek'.
Stap 4: Klik vervolgens op 'OK'. U wordt nu doorgestuurd naar het nieuwe werkblad met de geëxporteerde of gekopieerde werkbladen. Klik op 'Bestand' > 'Opslaan' om het nieuwe werkblad op te slaan.
Opmerking: In het dialoogvenster 'Verplaatsen of kopiëren' vindt u de optie 'Een kopie maken'. Als u deze optie niet aanvinkt, worden de geselecteerde werkbladen uit de oorspronkelijke werkmap verwijderd; vinkt u de optie wel aan, dan worden de geselecteerde werkbladen gekopieerd.
Werkbladen eenvoudig in batch opslaan als Nieuw werkblad met Kutools voor Excel
Als u meerdere werkbladen als afzonderlijke werkmappen moet opslaan, is de eerste methode geen goede keuze. Bovendien kan de onderstaande VBA-code voor Excel-beginners wat ingewikkeld zijn. Gebruik dan het hulpprogramma "Werkboek splitsen" van „Kutools voor Excel" om elk werkblad in een werkmap eenvoudig in batch op te slaan als een afzonderlijk nieuw werkblad.
Na het installeren van Kutools voor Excel, klikt u op "KUTOOLS PLUS" > "Werkmap" > „Werkboek splitsen" om het dialoogvenster „Werkboek splitsen" te openen. Configureer het vervolgens als volgt.
- Vink de werkbladen aan die u als nieuw werkblad wilt opslaan. Standaard zijn alle werkbladen geselecteerd.
- U kunt verborgen en lege werkbladen optioneel overslaan door de bijbehorende selectievakjes in het gedeelte 'Opties' aan te vinken.
- Klik op 'OK'.
- Er verschijnt een dialoogvenster ‘Map selecteren’; kies een doelmap om het nieuwe werkblad op te slaan en klik op de knop ‘Map selecteren’.
Vervolgens worden de opgegeven werkbladen of alle werkbladen onmiddellijk opgeslagen als afzonderlijke nieuwe werkbladen.
- Met deze functie slaat u elk werkblad eenvoudig op als een afzonderlijk TXT-, CSV- of PSF-bestand. Vink hiervoor gewoon het selectievakje **Opmaak opgeven voor opslaan** aan en kies de gewenste optie in de vervolgkeuzelijst.
- Om deze functie te gebruiken, moet u „Kutools voor Excel" op uw computer hebben geïnstalleerd.Download nu Kutools voor Excel.
Werkbladen exporteren en opslaan als Nieuw werkblad met VBA-code
De volgende code exporteert elk zichtbaar werkblad naar een nieuw werkboek en slaat het bestand op onder de naam van het oorspronkelijke werkblad in een nieuw aangemaakte map op hetzelfde pad als het huidige werkboek. Volg deze stappen:
Stap 1: Houd de toetsen ALT en F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
Stap 2: Klik op "Invoegen" > „Module" en plak de volgende macro in het modulevenster:
VBA: Werkbladen exporteren en opslaan als nieuw werkblad in een nieuwe map.
Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString
If Val(Application.Version) < 12 Then
FileExtStr = ".xls": FileFormatNum = -4143
Else
Select Case xWb.FileFormat
Case 51:
FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If Application.ActiveWorkbook.HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56:
FileExtStr = ".xls": FileFormatNum = 56
Case Else:
FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
MkDir FolderName
For Each xWs In xWb.Worksheets
On Error GoTo NErro
If xWs.Visible = xlSheetVisible Then
xWs.Select
xWs.Copy
xFile = FolderName & "\" & xWs.Name & FileExtStr
Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
xNWb.SaveAs xFile, FileFormat:=FileFormatNum
xNWb.Close False, xFile
End If
NErro:
xWb.Activate
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End SubStap 3: Druk op de toets F5 om de code uit te voeren. Er verschijnt een meldingsvenster met de locatie van de nieuw geëxporteerde werkmappen. Alle werkbladen uit de oorspronkelijke werkmap zijn nu geëxporteerd naar afzonderlijke, nieuwe werkmappen—elk met de naam van het betreffende originele werkblad—in een speciaal daarvoor aangemaakte map.
Demo: Elk blad exporteren en opslaan als Nieuw werkblad
Gerelateerde artikelen:
- Meerdere werkmappen combineren tot één werkmap
- Een selectie opslaan als afzonderlijk bestand
- Een werkmap splitsen naar afzonderlijke Excel-bestanden
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