Hoe exporteer je elke kolom in Excel naar individuele tekstbestanden?
In Excel is het eenvoudig om een volledig werkblad naar een tekstbestand te exporteren met de functie Opslaan als. Als je echter elke kolom als een apart tekstbestand wilt opslaan, zijn er een paar extra stappen nodig. Deze handleiding laat zien hoe je efficiënt elke kolom afzonderlijk kunt exporteren met behulp van VBA-code, of alternatief hoe je meerdere werkbladen kunt opslaan als individuele tekst-, PDF- of CSV-bestanden met behulp van Kutools voor Excel.
Exporteer elke kolom naar individuele tekstbestanden met VBA-code
Exporteer meerdere werkbladen naar individuele tekst-/PDF-/CSV-bestanden met Kutools voor Excel
Exporteer elke kolom naar individuele tekstbestanden met VBA-code
De volgende VBA-code kan helpen om de gegevens van elke kolom op te slaan als een individueel 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 Modulevenster.
VBA-code: Exporteer elke kolom naar individuele tekstbestanden:
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 je de code hebt geplakt, druk op de F5-toets om deze code uit te voeren. Er verschijnt een Bladeren-dialoogvenster waarin je een map kunt kiezen om je geëxporteerde tekstbestanden op te slaan, zie screenshot:
4. Klik vervolgens op de knop OK en de gegevens van elke kolom in het actieve werkblad zijn afzonderlijk geëxporteerd naar een tekstbestand, zie screenshot:
Exporteer meerdere werkbladen naar individuele tekst-/PDF-/CSV-bestanden met Kutools voor Excel
Als je meerdere werkbladen moet exporteren naar individuele tekst-, PDF- of CSV-bestanden, kan de functie Werkboek splitsen van Kutools voor Excel je helpen.
Nadat je Kutools voor Excel hebt geïnstalleerd, volg dan de volgende stappen:
1. Klik op Kutools Plus > Werkboek > Werkboek splitsen, zie screenshot:
2. Selecteer in het dialoogvenster Werkboek splitsen de werkbladen die je wilt opslaan als txt-, pdf- of csv-bestanden. Schakel vervolgens de optie Opmaak opgeven voor opslaan in en selecteer het bestandstype waarin je wilt opslaan. Klik daarna op de knop Splitsen. Kies in het weergegeven dialoogvenster Map bladeren een map om de geëxporteerde bestanden op te slaan, zie screenshot:
3. Klik vervolgens op de knop OK en je geselecteerde werkbladen zijn geëxporteerd naar het specifieke individuele bestandsformaat zoals je nodig had, zie screenshot:
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen