Wie speichert man jedes Blatt als separates Textdokument aus einer Arbeitsmappe?

Wenn Sie ein Arbeitsblatt als Textdatei speichern möchten, können Sie die Funktion „Speichern unter“ von Excel verwenden, um das Arbeitsblatt als Textdatei zu speichern. Wenn Sie jedoch jedes Blatt einer Arbeitsmappe als separate Textdatei speichern möchten, kann der Vorgang mit „Speichern unter“ frustrierend sein. Hier sind einige interessante Tricks, mit denen Sie diese langweilige Aufgabe in Excel schnell erledigen können.

Aktuelles Blatt mit VBA als Textdatei speichern

Jedes Blatt einer Arbeitsmappe mit Kutools für Excel als separate Textdatei speichern

Einen Auswahlbereich eines Blatts mit Kutools für Excel als Textdatei exportieren

Aktuelles Blatt mit VBA als Textdatei speichern

Wenn Sie die Funktion „Speichern unter“ nicht verwenden möchten, um ein Blatt als Textdatei zu speichern, können Sie stattdessen VBA-Code verwenden.

1. Aktivieren Sie das Blatt, das Sie als Textdatei speichern möchten.

2. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications anzuzeigen.

3. Klicken Sie im Fenster auf Einfügen > Modul und fügen Sie dann den folgenden VBA-Code in das Modul ein.

Sub SaveSheetToTxt()
'Updateby20150910
    Dim xRet As Long
    Dim xFileName As Variant
    On Error GoTo ErrHandler:
    xFileName = Application.GetSaveAsFilename(ActiveSheet.Name, "TXT File (*.txt), *.txt", , "Kutools for Excel")
    If xFileName = False Then Exit Sub
    If Dir(xFileName) <> "" Then
        xRet = MsgBox("File '" & xFileName & "' exists.  Overwrite?", vbYesNo + vbExclamation, "Kutools for Excel")
        If xRet <> vbYes Then
            Exit Sub
        Else
            Kill xFileName
        End If
    End If
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs xFileName, xlUnicodeText
    If ActiveWorkbook.Name <> ThisWorkbook.Name Then
        ActiveWorkbook.Close False
    End If
My_Exit:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
End Sub

4. Klicken Sie auf die Schaltfläche Ausführen, um den Code auszuführen. Wählen Sie im Dialogfeld von Kutools für Excel einen Ordner aus, in dem die Textdatei gespeichert werden soll, und geben Sie einen Namen für die Textdatei an. Siehe Screenshot:

5. Klicken Sie auf Speichern. Nun wird das aktive Blatt als Textdatei gespeichert.

Tipp: Mit VBA können Sie immer nur ein Blatt gleichzeitig als Textdatei speichern.

Jedes Blatt einer Arbeitsmappe mit Kutools für Excel als separate Textdatei speichern

Wenn Sie eine große Arbeitsmappe mit Hunderten von Blättern haben, die Sie in separate Textdateien speichern müssen, ist die VBA-Methode ebenfalls zeitaufwendig. In diesem Fall können Sie Kutools für Excel’s Arbeitsmappe trennen verwenden, um diese Aufgabe zu bewältigen – was Ihnen eine angenehme Überraschung bereiten wird.

1. Öffnen Sie die Arbeitsmappe, deren Blätter Sie als unabhängige Textdateien speichern möchten, und klicken Sie dann auf Kutools Plus > Arbeitsmappe > Arbeitsmappe trennen. Siehe Screenshot:

2. Wählen Sie im Dialogfeld „Arbeitsmappe trennen“ die Blätter aus, die Sie aufteilen und als Textdateien speichern möchten. Standardmäßig sind alle Blätter ausgewählt. Aktivieren Sie anschließend „Speicherformat angeben“ und wählen Sie Unicode-Text (*.txt) aus der Dropdownliste darunter aus. Siehe Screenshot:

3. Klicken Sie auf Aufteilen und wählen Sie dann im Dialogfeld „Ordner durchsuchen“ einen Ordner aus, in dem die Textdateien gespeichert werden sollen. Siehe Screenshot:

4. Klicken Sie auf OK. Nun wird jedes Blatt der Arbeitsmappe als separate Textdatei im ausgewählten Ordner gespeichert.

Mit der Funktion „Arbeitsmappe trennen“ von Kutools für Excel können Sie eine Arbeitsmappe aufteilen und als separate xls-Dateien, xlsx-Dateien, PDF-Dateien oder CSV-Dateien speichern. Klicken Sie hier, um mehr über dieses Tool zu erfahren.

Einen Auswahlbereich eines Blatts mit Kutools für Excel als Textdatei exportieren

Mit Kutools für Excel können Sie auch einen Auswahlbereich eines Blatts mithilfe der Funktion „ Bereich exportieren“ als Textdatei exportieren.

1. Wählen Sie einen Bereich oder mehrere Bereiche aus, die Sie als Textdatei speichern möchten, und klicken Sie auf Kutools Plus > Import/Export > Bereich exportieren. Siehe Screenshot:

2. Aktivieren Sie im erscheinenden Dialogfeld die Option Unicode-Text im Abschnitt Dateityp. Gehen Sie dann zum Abschnitt Textoptionen und aktivieren Sie die benötigte Option. Wählen Sie abschließend einen Speicherort aus.

3. Klicken Sie auf OK. Benennen Sie nun die exportierte Textdatei im erscheinenden Dialogfeld „Bereich exportieren“ und klicken Sie auf die Schaltfläche OK.

Der Auswahlbereich wurde nun als separate Textdatei exportiert.