Wie exportiere und speichere ich jedes Arbeitsblatt als separate neue Arbeitsmappe in Excel?
Angenommen, Sie möchten ein oder mehrere Arbeitsblätter exportieren und als neue Arbeitsmappe speichern. Wie werden Sie damit umgehen? Normalerweise können Sie jedes Arbeitsblatt kopieren und in eine neue Arbeitsmappe einfügen. Aber hier bringen wir Ihnen einige nützliche Tricks, um damit umzugehen:
Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe mit VBA-Code
Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe mit Kutools for Excel
Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe mit dem Befehl Verschieben oder Kopieren
Verwendung der Verschieben oder Kopieren Mit dem Befehl können Sie ein oder mehrere Arbeitsblätter schnell in eine neue Arbeitsmappe exportieren oder kopieren.
Schritt 1: Wählen Sie die Arbeitsblattnamen in der Registerkartenleiste aus. Sie können mehrere bei gedrückter Taste auswählen Ctrl Schlüssel oder verschieben Key.
Schritt 2: Klicken Sie mit der rechten Maustaste auf den Arbeitsblattnamen und klicken Sie auf Verschieben oder Kopieren aus dem Kontextmenü.
Schritt 3: In Verschieben oder Kopieren Wählen Sie im Dialogfeld (neues Buch) Element aus der Dropdown-Liste von Verschieben Sie ausgewählte Blätter zum Buchen.
Schritt 4: Klicken Sie dann auf OK, jetzt hast du auf die umgestellt neue Arbeitsmappe Klicken Sie bei exportierten oder kopierten Arbeitsblättern auf Reichen Sie das > Speichern um die neue Arbeitsmappe zu speichern.
Hinweis: Im Verschieben oder Kopieren Dialogfeld gibt es eine Erstellen Sie eine Kopie Möglichkeit. Wenn Sie dies nicht aktivieren, werden die ausgewählten Arbeitsblätter aus der ursprünglichen Arbeitsmappe verschoben. Wenn Sie diese Option aktivieren, werden ausgewählte Arbeitsblätter kopiert.
Teilen Sie schnell mehrere Arbeitsblätter in eine separate Arbeitsmappe in Excel auf
|
In Microsoft Excel können Sie ein Arbeitsblatt aus einer Arbeitsmappe als neue Excel-Datei speichern oder aufteilen, indem Sie dieses Arbeitsblatt kopieren und in eine neue Arbeitsmappe einfügen. Es erscheint problematisch, wenn Sie jedes Blatt / Arbeitsblatt einer großen Arbeitsmappe als separate Excel-, TXT-, CSV- und PDF-Dateien aufteilen möchten. Aber mit Kutools for Excel Arbeitsmappe teilen Dienstprogramm, können Sie schnell damit umgehen. Klicken Sie hier für eine 30-tägige kostenlose Testversion mit allen Funktionen! |
Kutools für Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe mit VBA-Code
Dieser folgende Code exportiert jedes sichtbare Arbeitsblatt in eine neue Arbeitsmappe und speichert die Arbeitsmappe mit dem Namen des Originalblatts in einem neu erstellten Ordner im selben Pfad wie die aktive Arbeitsmappe. Bitte gehen Sie wie folgt vor:
Schritt 1: Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.
Schritt 2: Klicken Sie auf Insert > Modulund fügen Sie das folgende Makro in das Modulfenster ein:
VBA: Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe in einem neuen Ordner.
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 Sub
Schritt 3: Drücken Sie die Taste F5 Schlüssel zum Ausführen dieses Codes. Daraufhin wird ein Eingabeaufforderungsfeld angezeigt, in dem Sie über den Speicherort der neu exportierten Arbeitsmappen informiert werden. Alle Arbeitsblätter der ursprünglichen Arbeitsmappe wurden in einige neue separate Arbeitsmappen exportiert, in denen die Originalblätter in einem neuen bestimmten Ordner benannt sind. Siehe Screenshots:
Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe mit Kutools for Excel
Wenn mehrere Arbeitsblätter als separate Arbeitsmappe gespeichert werden müssen, kann die erste Methode keine gute Wahl sein. Und der VBA-Code ist für Excel-Anfänger vielleicht etwas kompliziert. Hier können Sie die verwenden Arbeitsmappe teilen Nutzen von Kutools for Excel um jedes Arbeitsblatt einer Arbeitsmappe schnell und einfach zu exportieren und zu speichern, um eine neue Arbeitsmappe zu trennen.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. | ||
Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:
Schritt 1: Klicken Sie auf Kutoolen Plus > Workbook > Geteilte Arbeitsmappe…. Siehe Screenshot:
Schritt 2: In der Arbeitsmappe teilen Gehen Sie wie folgt vor:
2: Wenn Sie das Aufteilen der ausgeblendeten oder leeren Arbeitsblätter vermeiden möchten, können Sie dies überprüfen Übersprungene Arbeitsblätter überspringen or Leere Arbeitsblätter überspringen) .;
3: und auch können Sie überprüfen Geben Sie save an Wenn Sie diese Option nicht aktivieren, werden die Blätter geteilt und als Arbeitsmappe gespeichert. Wenn Sie diese Option nicht aktivieren, werden die Blätter geteilt und als Arbeitsmappe gespeichert.
Schritt 3: Klicken Sie dann auf Split Klicken Sie auf die Schaltfläche, und wählen Sie den Ordner aus, in den Sie die neuen Arbeitsmappen ablegen möchten. Siehe Screenshot:
Schritt 4: Und dann klicken OK, dann jedes überprüfte Arbeitsblatt in der Arbeitsmappe teilen Das Dialogfeld wird exportiert und als einzelne Arbeitsmappe gespeichert. Jede neue Arbeitsmappe wird mit dem ursprünglichen Arbeitsblattnamen benannt. Siehe Screenshot:
Klicken Sie hier, um weitere Informationen zu diesem Split Workbook-Tool zu erhalten.
Exportieren und speichern Sie jedes Blatt als neue Arbeitsmappe
Teilen Sie Daten schnell in mehrere Arbeitsblätter auf, basierend auf Spalten oder festen Zeilen in Excel
|
Angenommen, Sie haben ein Arbeitsblatt mit Daten in den Spalten A bis G, der Name des Verkäufers befindet sich in Spalte A, und Sie müssen diese Daten basierend auf der Spalte A in derselben Arbeitsmappe automatisch in mehrere Arbeitsblätter aufteilen, und jeder Verkäufer wird in eine neue aufgeteilt Arbeitsblatt. Kutools for Excel Geteiltes Datum Mit dem Dienstprogramm können Sie Daten basierend auf der ausgewählten Spalte schnell in mehrere Arbeitsblätter aufteilen (siehe Abbildung in Excel). Klicken Sie hier für eine 30-tägige kostenlose Testversion mit vollem Funktionsumfang! |
Kutools für Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
In Verbindung stehende Artikel:
- Kombinieren Sie mehrere Arbeitsmappen zu einer Arbeitsmappe
- Speichern Sie eine Auswahl als einzelne Datei
- Teilen Sie eine Arbeitsmappe, um Excel-Dateien zu trennen
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!