Wie exportiere ich mehrere Spalten in einzelne Textdateien in Excel?
Normalerweise können Sie ein Arbeitsblatt mithilfe der Funktion Speichern unter schnell und einfach in eine TXT-Datei in Excel exportieren. Haben Sie jemals versucht, jede Spaltendaten einzeln aus einem Excel-Arbeitsblatt in einer Textdatei zu speichern? In diesem Artikel werde ich darüber sprechen, wie Sie diesen Job so schnell wie möglich lösen können.
Exportieren Sie mehrere Spalten mit VBA-Code in einzelne Textdateien
Exportieren Sie mit Kutools for Excel mehrere Arbeitsblätter in einzelne Text- / PDF- / CSV-Dateien
Exportieren Sie mehrere Spalten mit VBA-Code in einzelne Textdateien
Mit dem folgenden VBA-Code können Sie die einzelnen Spaltendaten einzeln in Excel in einer Textdatei speichern. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modul Fenster.
VBA-Code: Exportieren Sie mehrere Spalten in einzelne Textdateien:
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. Nach dem Einfügen des Codes drücken Sie bitte F5 Schlüssel zum Ausführen dieses Codes und a Browser Das Dialogfeld wird geöffnet. Wählen Sie dann einen Ordner aus, in dem Sie Ihre exportierten Textdateien ablegen möchten. Siehe Screenshot:
4. Dann klick OK Klicken Sie auf die Schaltfläche, und alle Spaltendaten im aktiven Arbeitsblatt wurden einzeln in eine Textdatei exportiert (siehe Screenshot).
Exportieren Sie mit Kutools for Excel mehrere Arbeitsblätter in einzelne Text- / PDF- / CSV-Dateien
Wenn Sie mehrere Arbeitsblätter in einzelne Text-, PDF- oder CSV-Dateien exportieren müssen, wird die Kutools for Excel Arbeitsmappe teilen Funktion kann Ihnen einen Gefallen tun.
Nach der Installation Kutools für Excel, Bitte machen Sie folgende Schritte:
1. Klicken Sie Kutoolen Plus > Workbook > Arbeitsmappe teilen, siehe Screenshot:
2. In dem Arbeitsmappe teilen Überprüfen Sie im Dialogfeld die Arbeitsblätter, die Sie als txt-, pdf- und csv-Dateien speichern möchten, und überprüfen Sie sie Speichern als Typ Wählen Sie dann den Dateityp aus, unter dem Sie speichern möchten, und klicken Sie dann auf Split Schaltfläche in der angezeigten Suche nach Ordner Wählen Sie im Dialogfeld einen Ordner aus, in dem die exportierten Dateien abgelegt werden sollen. Siehe Screenshot:
3. Dann klick OK Klicken Sie auf die Schaltfläche, und Ihre ausgewählten Arbeitsblätter wurden nach Bedarf in das jeweilige Dateiformat exportiert (siehe Abbildung):
Klicken Sie hier, um Kutools für Excel jetzt herunterzuladen und kostenlos zu testen!
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!