Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kan ik meerdere kolommen exporteren naar individuele tekstbestanden in Excel?

Normaal gesproken kunt u snel en eenvoudig een werkblad exporteren naar txt-bestanden met behulp van de functie Opslaan als. Maar heb je ooit geprobeerd om elke kolomgegevens afzonderlijk in een tekstbestand op te slaan in een Excel-werkblad? In dit artikel zal ik bespreken hoe deze taak zo snel mogelijk kan worden opgelost.

Exporteer meerdere kolommen naar individuele tekstbestanden met VBA-code

Exporteer meerdere werkbladen naar individuele tekst / pdf / csv-bestanden met Kutools voor Excel


Meerdere werkbladen exporteren naar individuele tekst / pdf / csv-bestanden:

Om elk werkblad te splitsen naar afzonderlijke tekst-, werkmap-, Pdf- of Csv-bestanden, de Kutools for Excel's Werkboek splitsen kan u helpen om deze taak zo gemakkelijk mogelijk op te lossen.

exporteer kolommen naar txts 6

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Exporteer meerdere kolommen naar individuele tekstbestanden met VBA-code


De volgende VBA-code kan u helpen om elke kolomgegevens afzonderlijk op te slaan in een tekstbestand in Excel, alsjeblieft als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > module, en plak de volgende macro in de module Venster.

VBA-code: exporteer meerdere kolommen 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 u de code hebt geplakt, drukt u op F5 toets om deze code uit te voeren, en a browser dialoogvenster wordt uitgeklapt en kies vervolgens een map om uw geëxporteerde tekstbestanden te plaatsen, zie screenshot:

exporteer kolommen naar txts 1

4. Dan klikken OK knop, en elke kolom gegevens in actieve werkblad is afzonderlijk geëxporteerd naar tekstbestand, zie screenshot:

exporteer kolommen naar txts 2


Exporteer meerdere werkbladen naar individuele tekst / pdf / csv-bestanden met Kutools voor Excel

Als u meerdere werkbladen in afzonderlijke tekst-, pdf- of csv-bestanden moet exporteren, moet u het volgende doen: Kutools for Excel's Werkboek splitsen functie kan je een plezier doen.

Na het installeren van Kutools voor Excel, Alsjeblieft doen met de volgende stappen:

1. Klikken Kutools Plus > werkboek > Werkboek splitsenzie screenshot:

exporteer kolommen naar txts 3

2. In de Werkboek splitsen dialoogvenster, controleer de werkbladen die u wilt opslaan als txt, pdf, csv-bestanden en controleer vervolgens Opslaan als type Selecteer het bestandstype dat u wilt opslaan en klik op OK spleet knop, in het weergegeven Blader naar de map dialoogvenster, kies een map om de geëxporteerde bestanden te plaatsen, zie screenshot:

exporteer kolommen naar txts 4

3. Dan klikken OK knop, en uw geselecteerde werkbladen zijn geëxporteerd naar de individuele specifieke bestandsindeling zoals u nodig hebt, zie screenshot:

exporteer kolommen naar txts 5


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen 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.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nicolas · 1 months ago
    Hi there. Thanks in advance for the VBA code. I was wondering if instead of saving each .txt file as ANSI coding it can be made as UTF-8. Is it possible? Regards.
  • To post as a guest, your comment is unpublished.
    Gianluca · 9 months ago
    Great, you made my day with the code to export multiple columns into individual text files! Many thanks!