Hoe kan ik elk blad als afzonderlijk tekstbestand uit een werkmap opslaan?

Als u een werkblad als tekstbestand wilt opslaan, kunt u de functie Opslaan als van Excel gebruiken om het werkblad als tekstbestand op te slaan. Maar als u elk blad van een werkmap als een apart tekstbestand wilt opslaan, moeten de stappen van Opslaan als u irriteren. Hier introduceer ik enkele interessante trucs om deze saaie klus snel in Excel op te lossen.

Sla een blad op als tekstbestand met VBA

Sla elk blad van een werkmap op als een afzonderlijk tekstbestand met Kutools voor Excel

Exporteer een selectie van het blad als tekstbestand met Kutools voor Excel

---

Sla een blad op als tekstbestand met VBA

Als u de functie Opslaan als niet wilt gebruiken om het blad als tekstbestand op te slaan, kunt u VBA-code gebruiken.

1. Activeer het blad dat u als tekstbestand wilt opslaan.

2. druk op Alt + F11 toetsen om weer te geven Microsoft Visual Basic voor toepassingen venster.

3. klikken Invoegen > Module uit het venster en plak vervolgens onderstaande VBA-code in de module.

VBA: blad opslaan als tekstbestand.

Sub SaveSheetToTxt()
'Updateby20150910
    Dim xRet As Long
    Dim xFileName As Variant
    On Error GoTo ErrHandler:
    xFileName = Application.GetSaveAsFilename(ActiveSheet.Name, "TXT File (*.txt), *.txt", , "Kutools for Excel")
    If xFileName = False Then Exit Sub
    If Dir(xFileName) <> "" Then
        xRet = MsgBox("File '" & xFileName & "' exists.  Overwrite?", vbYesNo + vbExclamation, "Kutools for Excel")
        If xRet <> vbYes Then
            Exit Sub
        Else
            Kill xFileName
        End If
    End If
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs xFileName, xlUnicodeText
    If ActiveWorkbook.Name <> ThisWorkbook.Name Then
        ActiveWorkbook.Close False
    End If
My_Exit:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
End Sub

4. klikken lopen knop om de code uit te voeren, en dan in de Kutools for Excel selecteer een map om het tekstbestand in te plaatsen en specificeer een naam voor het tekstbestand. Zie screenshot:

5. klikken Bespaar. Nu wordt het actieve blad opgeslagen als tekstbestand.

Tip: met de VBA kunt u slechts één blad tegelijk als tekstbestand opslaan.

---

Sla elk blad van een werkmap op als een afzonderlijk tekstbestand met Kutools voor Excel

Als u een grote werkmap heeft met honderden bladen die nodig zijn om op te slaan in afzonderlijke tekstbestanden, is de VBA-methode ook tijdverspilling. In dit geval kunt u proberen Kutools for Excel's Werkmap splitsen om deze klus te klaren, wat je voor een onverwachte verrassing zal geven.

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Schakel de werkmap in waarvan u de werkbladen wilt opslaan als onafhankelijke tekstbestanden en klik op Koetools Plus > werkboek > Werkmap splitsen. Zie screenshot:

2. In de Werkmap splitsen dialoogvenster, selecteer de bladen die u wilt splitsen en opslaan als tekstbestanden, standaard zijn alle bladen geselecteerd en vink vervolgens aan Geef het opslagformaat opEn Select Unicode-tekst (*. Txt) uit de onderstaande vervolgkeuzelijst. Zie screenshot:

3. klikken Spliten selecteer vervolgens een map waaruit u de tekstbestanden wilt plaatsen Blader naar de map dialoog. Zie screenshot:

4. klikken OK. Nu wordt elk blad van de werkmap opgeslagen als een apart tekstbestand in de geselecteerde map.

met Werkmap splitsen of Kutools for Excelkunt u een werkmap splitsen en opslaan als aparte xls-bestanden, xlsx-bestanden, pdf-bestanden of csv-bestanden, Klik hier voor meer informatie over dit hulpprogramma.

Klik hier om Kutools voor Excel gratis te downloaden

---

Exporteer een selectie van het blad als tekstbestand met Kutools voor Excel

met Kutools for Excel, kunt u ook een selectie van een werkblad als tekstbestand exporteren door het Bereik exporteren naar bestand.

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Selecteer een bereik of bereiken die u als tekstbestand wilt opslaan en klik op Koetools Plus > Import / Export > Bereik exporteren naar bestand. Zie screenshot:

2. Vink vervolgens in het popping-dialoogvenster aan Unicode-tekst optie onder bestandsformaat sectie, ga dan naar Tekst opties sectie om een ​​gewenste optie aan te vinken en vervolgens een opslaglocatie te selecteren.

3. klikken Ok. Geef nu het geëxporteerde tekstbestand een naam in de popping Bereik exporteren naar bestand dialoogvenster en klik op het OK knop.

Tot nu toe is de selectie geëxporteerd als een apart tekstbestand.

Er zijn meer dan 120 gereedschappen Kutools for Excel, om het te installeren en een proefperiode van 60 dagen te hebben, dan vindt u wellicht veel niet-gedroomde nuttige functies.