Hoe kan ik meerdere / alle bladen opslaan, exporteren naar aparte csv- of tekstbestanden in Excel?
Wanneer u Excel gebruikt, kunt u een werkblad handmatig opslaan als een csv- of tekstbestand met behulp van de functie Opslaan als. Hoe kunt u echter meerdere of alle werkbladen in een werkmap converteren naar gescheiden csv- of tekstbestanden? In dit artikel laten we u methoden zien om meerdere of alle bladen op te slaan of te converteren naar gescheiden csv- of tekstbestanden.
Bewaar, exporteer of converteer alle bladen naar csv of tekstbestand met VBA-code
Bewaar, exporteer of converteer meerdere / alle bladen naar csv of tekstbestand met Kutools voor Excel
Bewaar, exporteer of converteer alle bladen naar csv of tekstbestand met VBA-code
Met de onderstaande VBA-codes kunt u alle werkbladen in een werkmap opslaan in afzonderlijke csv- of tekstbestanden. Ga als volgt te werk.
Exporteer of converteer alle bladen naar csv-bestanden
1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic-toepassing venster.
2. In de Microsoft Visual Basic-toepassing venster klikt Invoegen > Module. Kopieer en plak vervolgens de volgende code in het Module venster.
VBA-code: exporteer alle bladen naar gescheiden csv-bestanden
Sub ExportSheetsToCSV()
Dim xWs As Worksheet
Dim xcsvFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xcsvFile = CurDir & "\" & xWs.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
FileFormat: = xlCSV, CreateBackup: = False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
3. druk de F5 sleutel om de code uit te voeren. U zult zien dat alle geëxporteerde csv-bestanden zich op het Documenten map. Zie screenshot:
Exporteer of converteer alle bladen naar tekstbestanden
De volgende code kan u helpen bij het exporteren of converteren van alle bladen in de werkmap naar afzonderlijke tekstbestanden.
VBA-code: exporteer alle bladen naar afzonderlijke tekstbestanden
Sub ExportSheetsToText()
Dim xWs As Worksheet
Dim xTextFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xTextFile = CurDir & "\" & xWs.Name & ".txt"
Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
De geëxporteerde tekstbestanden bevinden zich ook op het Documenten map. Zie screenshot:
Bewaar, exporteer of converteer meerdere / alle bladen naar csv of tekstbestand met Kutools voor Excel
YU kunt snel meerdere of alle bladen exporteren of converteren naar individuele csv-bestanden, tekstbestanden of xls-bestandsindeling in Excel met de Werkmap splitsen nut van Kutools for Excel.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. klikken Koetools Plus > werkboek > Werkmap splitsen. Zie screenshot:
2. In de Werkmap splitsen dialoog venster:
- 1). Als u alle bladen naar csv- of tekstbestanden wilt converteren, laat u alle bladnamen aangevinkt in het Werkbladnaam doos; Als u alleen meerdere bladen wilt converteren, blijf ze dan controleren en schakel andere bladen uit die u niet wilt converteren.
- 2). In de Opties sectie, controleer de Opslaan als type box en selecteer vervolgens Unicode-tekst (*. Txt) or CSV (Macintosh) (*. Csv) uit de vervolgkeuzelijst.
- 3). Klik op de Split knop.
3. In de Blader naar de map dialoogvenster, geef een map op om de geëxporteerde bestanden op te slaan en klik vervolgens op het OK knop.
Nu worden alle bladen of gespecificeerde bladen geconverteerd naar gescheiden csv- of tekstbestanden en lokaliseren ze in de map zoals je hierboven hebt gespecificeerd.
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Bewaar, exporteer of converteer meerdere / alle bladen naar csv of tekstbestand met Kutools voor Excel
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!