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:
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins