Hoe exporteert u elke kolom in Excel naar een afzonderlijk tekstbestand?
In Excel is het exporteren van een volledig werkblad naar een tekstbestand eenvoudig met de functie **Opslaan als**. Wilt u echter elke kolom opslaan als een afzonderlijk tekstbestand, dan zijn enkele extra stappen nodig. In deze handleiding leest u hoe u elke kolom efficiënt kunt exporteren met VBA-code of, als alternatief, hoe u meerdere werkbladen als aparte tekst-, PDF- of CSV-bestanden opslaat met **Kutools voor Excel**.
Exporteer elke kolom naar afzonderlijke Tekstbestand met VBA-code
Exporteer meerdere werkbladen naar afzonderlijke tekst-/pdf-/csv-bestanden met Kutools voor Excel
Exporteer elke kolom naar afzonderlijke Tekstbestand met VBA-code
De volgende VBA-code helpt u om de gegevens uit elke kolom op te slaan als een afzonderlijk tekstbestand in Excel. Volg deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.
VBA-code: exporteer elke kolom naar afzonderlijke Tekstbestand:
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. Nadat u de code hebt geplakt, drukt u op de toets F5 om deze code uit te voeren. Er verschijnt een Verkenner-dialoogvenster; kies vervolgens een map om uw geëxporteerde tekstbestand op te slaan (zie schermafbeelding):
4. Klik daarna op de knop OK. De gegevens van elke kolom in het actieve werkblad worden dan afzonderlijk geëxporteerd naar een tekstbestand (zie schermafbeelding):
Exporteer meerdere werkbladen naar afzonderlijke tekst-/pdf-/csv-bestanden met Kutools voor Excel
Als u meerdere werkbladen wilt exporteren naar afzonderlijke tekst-, PDF- of CSV-bestanden, helpt de functie Kutools voor Excel’s Werkboek splitsen u daarbij.
Na installatie van Kutools voor Excel,gaat u als volgt te werk:
1. Klik op KUTOOLS PLUS > Werkmap > Werkboek splitsen (zie schermafbeelding):
2. In het dialoogvenster Werkboek splitsen vinkt u de werkbladen aan die u als TXT-, PDF- of CSV-bestanden wilt opslaan. Selecteer vervolgens de optie Opmaak opgeven voor opslaan, kies het gewenste bestandstype en klik op de knop Splitsen. Kies in het weergegeven dialoogvenster Bladeren naar map een map voor de geëxporteerde bestanden (zie schermafbeelding):
3. Klik vervolgens op de knop OK. Uw geselecteerde werkbladen worden dan geëxporteerd naar het gewenste specifieke bestandstype (zie schermafbeelding):
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins