Wie exportiert man jede Spalte in Excel in separate Textdateien?

In Excel ist das Exportieren eines gesamten Arbeitsblatts in eine Textdatei mit der Funktion „Speichern unter“ einfach. Wenn Sie jedoch jede Spalte als separate Textdatei speichern müssen, erfordert der Prozess einige zusätzliche Schritte. Dieser Leitfaden zeigt Ihnen, wie Sie jede Spalte effizient einzeln mit VBA-Code exportieren oder alternativ mehrere Arbeitsblätter mit Hilfe von Kutools für Excel als individuelle Text-, PDF- oder CSV-Dateien speichern können.

Jede Spalte mit VBA-Code in separate Textdateien exportieren

Mehrere Arbeitsblätter mit Kutools für Excel in einzelne Text-/PDF-/CSV-Dateien exportieren

Jede Spalte mit VBA-Code in separate Textdateien exportieren

Der folgende VBA-Code kann Ihnen helfen, die Daten jeder Spalte als separate Textdatei in Excel zu speichern. Bitte folgen Sie diesen Schritten:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro im Modulfenster ein.

VBA-Code: Jede Spalte in separate Textdateien exportieren:

Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
        Else
            Exit Sub
        End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
    Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
        For xFRNum = 1 To xMaxR
            Print #1, Cells(xFRNum, xFCNum).Value
        Next xFRNum
    Close #1
Next
End Sub

3. Nachdem Sie den Code eingefügt haben, drücken Sie bitte die F5-Taste, um diesen Code auszuführen, und ein Browser-Dialogfeld wird angezeigt. Wählen Sie dann einen Ordner aus, um Ihre exportierten Textdateien zu speichern, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche OK, und die Daten jeder Spalte im aktiven Arbeitsblatt wurden einzeln in eine Textdatei exportiert, siehe Screenshot:

Mehrere Arbeitsblätter mit Kutools für Excel in individuelle Text-/PDF-/CSV-Dateien exportieren

Wenn Sie mehrere Arbeitsblätter in individuelle Text-, PDF- oder CSV-Dateien exportieren müssen, kann Ihnen die Funktion „Arbeitsmappe trennen“ von Kutools für Excel helfen.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Klicken Sie auf Kutools Plus > Arbeitsmappe > Arbeitsmappe trennen, siehe Screenshot:

2. Aktivieren Sie im Dialogfeld „Arbeitsmappe trennen“ die Arbeitsblätter, die Sie als TXT-, PDF- oder CSV-Dateien speichern möchten, und aktivieren Sie dann die Option „Speichern im Format“. Wählen Sie den gewünschten Dateityp aus und klicken Sie dann auf die Schaltfläche „Trennen“. Wählen Sie im angezeigten Dialogfeld „Ordner durchsuchen“ einen Ordner aus, um die exportierten Dateien zu speichern, siehe Screenshot:

3. Klicken Sie dann auf die Schaltfläche OK, und Ihre ausgewählten Arbeitsblätter wurden in das jeweilige spezifische Dateiformat exportiert, das Sie benötigen, siehe Screenshot: