Hoe elk werkblad op te slaan als een apart tekstbestand vanuit een werkboek?

Wanneer u een werkblad wilt opslaan als een tekstbestand, kunt u de functie Opslaan als in Excel gebruiken om het werkblad op te slaan als een tekstbestand. Maar als u elk werkblad van een werkboek wilt opslaan als een apart tekstbestand, kunnen de stappen van Opslaan als frustrerend zijn. Hier introduceer ik enkele interessante trucs om deze vervelende taak snel op te lossen in Excel.

Sla het huidige werkblad op als een tekstbestand met VBA

Sla elk werkblad van een werkboek op als een apart tekstbestand met Kutools voor Excel

Exporteer een selectie van een werkblad als een tekstbestand met Kutools voor Excel

Sla het huidige werkblad op als een tekstbestand met VBA

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

1. Activeer het werkblad dat u wilt opslaan als een tekstbestand.

2. Druk op Alt + F11 toetsen om het venster Microsoft Visual Basic for Applications weer te geven.

3. Klik op Invoegen > Module in het venster, en plak vervolgens onderstaande VBA-code in de Module.

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. Klik op de knop Uitvoeren om de code uit te voeren, en selecteer vervolgens in het dialoogvenster Kutools voor Excel een map om het tekstbestand op te slaan en geef een naam op voor het tekstbestand. Zie screenshot:

5. Klik op Opslaan. Nu is het actieve werkblad opgeslagen als een tekstbestand.

Tip: Met de VBA kunt u slechts één werkblad tegelijk opslaan als een tekstbestand.

Sla elk werkblad van een werkboek op als een apart tekstbestand met Kutools voor Excel

Als u een groot werkboek hebt met honderden werkbladen die moeten worden opgeslagen als afzonderlijke tekstbestanden, is de VBA-methode ook tijdrovend. In dit geval kunt u proberen Kutools voor Excel’s Werkboek splitsen te gebruiken om deze taak te verwerken, wat u een onverwachte verrassing zal geven.

1. Activeer het werkboek waarvan u de werkbladen wilt opslaan als onafhankelijke tekstbestanden, en klik vervolgens op Kutools Plus > Werkboek > Werkboek splitsen. Zie screenshot:

2. Selecteer in het dialoogvenster Werkboek splitsen de werkbladen die u wilt splitsen en opslaan als tekstbestanden. Standaard zijn alle werkbladen geselecteerd, en vink vervolgens Specificeer opslagformaat aan en selecteer Unicode-tekst(*.txt ) uit de vervolgkeuzelijst hieronder. Zie screenshot:

3. Klik op Splitsen, en selecteer vervolgens een map om de tekstbestanden te plaatsen via het dialoogvenster Map zoeken. Zie screenshot:

4. Klik op OK. Nu is elk werkblad van het werkboek opgeslagen als een apart tekstbestand in de geselecteerde map.

Met Werkboek splitsen van Kutools voor Excel kunt u een werkboek splitsen en opslaan als afzonderlijke xls-bestanden, xlsx-bestanden, PDF-bestanden of CSV-bestanden. Klik hier om meer te weten te komen over dit hulpprogramma.

Exporteer een selectie van een werkblad als een tekstbestand met Kutools voor Excel

Met Kutools voor Excel kunt u ook een selectie van een werkblad exporteren als een tekstbestand door gebruik te maken van Bereik exporteren naar bestand.

1. Selecteer een bereik of bereiken die u wilt opslaan als een tekstbestand, en klik op Kutools Plus > Importeren/Exporteren > Bereik exporteren naar bestand. Zie screenshot:

2. Vink vervolgens in het pop-updialoogvenster de optie Unicode-tekst aan onder de sectie Bestandstype, ga vervolgens naar de sectie Tekstopties om een optie te selecteren zoals u nodig hebt, en selecteer een opslaglocatie.

3. Klik op Ok. Geef nu de naam van het geëxporteerde tekstbestand in het pop-updialoogvenster Bereik exporteren naar bestand, en klik op de knop OK.

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