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.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
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.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
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.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!