Note: The other languages of the website are Google-translated. Back to English

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 Kutools 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


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

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 elke dag honderden muisklikken!
officetab onderkant
Comments (34)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om de CSV-bestanden op te slaan in een andere map dan de map Documenten?
Deze opmerking is gemaakt door de moderator op de site
[quote]Is er een manier om de CSV-bestanden op te slaan in een andere map dan de map Documenten?Door Alex K123456789[/quote] Ik heb het niet getest, maar ik ben vrij de "\" in deze regel staat voor de werkdirectory: xcsvFile = CurDir & "\" & xWs.Name & ".csv" Als je wilt veranderen de werkdirectory, moet u een ander commando toevoegen. Als u het wilt opslaan in een map in de werkdirectory, bijvoorbeeld in een map met de naam new, vervangt u "\" door "\New\". Iets in die richting.
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt Paulus. Ik heb het een tijdje terug uitgezocht, maar jouw oplossing is precies wat ik deed.
Deze opmerking is gemaakt door de moderator op de site
Leuk! Bedankt voor het antwoord, het betekent ook veel voor mij om te weten dat mijn oplossing de juiste is. Proost!
Deze opmerking is gemaakt door de moderator op de site
Hallo Alex, kun je me de coderegel laten zien die je hebt ingevoerd in plaats van de "\"? Ik moet deze .csv-bestanden kunnen opslaan op een locatie op ons netwerk in plaats van in mijn lokale WS-bibliotheek. We moeten ervoor zorgen dat onze klantenservicemedewerkers toegang hebben tot het bestand en de locatie elke keer dat het wordt gebruikt kunnen hernoemen. Ik kom bugproblemen tegen door simpelweg "\" in "\New\" te veranderen (de VBA-code werkt zoals verwacht wanneer deze rechtstreeks uit de bovenstaande informatie wordt gekopieerd). Ik ben geen code-expert, maar ik kan de aanwijzingen redelijk goed volgen, dus alle hulp wordt op prijs gesteld!
Deze opmerking is gemaakt door de moderator op de site
[quote]Hallo Alex, zou je me de coderegel kunnen laten zien die je hebt ingevoerd in plaats van de "\"? Ik moet deze .csv-bestanden kunnen opslaan op een locatie op ons netwerk in plaats van in mijn lokale WS-bibliotheek. We moeten ervoor zorgen dat onze klantenservicemedewerkers toegang hebben tot het bestand en de locatie elke keer dat het wordt gebruikt kunnen hernoemen. Ik kom bugproblemen tegen door simpelweg "\" in "\New\" te veranderen (de VBA-code werkt zoals verwacht wanneer deze rechtstreeks uit de bovenstaande informatie wordt gekopieerd). Ik ben geen code-expert, maar ik kan de aanwijzingen redelijk goed volgen, dus alle hulp wordt op prijs gesteld!Door Dageraad[/quote] Hallo Dawn, uiteindelijk moest ik delen herschrijven en zoals Paul suggereerde, gebruikte ik een iets ander commando. Hieronder staat de opdracht die ik heb geschreven om de gegevens in mijn werkmap vanuit ons datawarehouse te vernieuwen, vervolgens draaitabellen te vernieuwen en uiteindelijk een van de bladen als pdf op mijn schijf op te slaan: ActiveWorkbook.RefreshAll Sheets("Karth").Select Range(" B22").Select ActiveSheet.PivotTables("Karth_Appd_Wkly").PivotCache.Refresh Sheets("Start").Select Sheets("Karth").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "K:\K\Analytics\ Reports\Sales\SM Reports\SM Summary_Karth.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo, bedankt voor de code, is het mogelijk om enkele bladen over te slaan en er maar een paar op te slaan? Ik heb geen idee hoe ik moet beginnen. Zou je me kunnen helpen? Nicolaas
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor de macro's, ze waren precies wat ik nodig had. Het gebruik van "CurDir" om het uitvoerbestandspad te bouwen is echter erg gevaarlijk omdat het niet noodzakelijk de map van het Excel-bestand is dat werd geopend - het is over het algemeen de huidige map in verkenner, zodat uw bestanden praktisch overal kunnen worden geschreven. Gebruik in plaats daarvan Application.ThisWorkbook.Path.
Deze opmerking is gemaakt door de moderator op de site
Ik schrijf om te bepalen of uw toepassing meerdere xls-bladen naar één tekstbestand kan converteren en hoe de rijen worden gerangschikt. Ik moet een optie hebben om de rijen te ordenen in volgorde van uiterlijk, regel voor regel, blad voor blad. Blad 1, rij 1; blad 2, rij 1, blad 3, rij 1, enz. Ik kijk uit naar uw feedback.
Deze opmerking is gemaakt door de moderator op de site
Hallo, bedankt voor de code, ik heb alleen een kleine verduidelijking. Wanneer het CSV-bestand momenteel wordt gegenereerd, wordt het gescheiden door een komma ",". hoewel mijn systeeminstelling voor CSV is, moet het gescheiden zijn pijp "|". Ik weet niet zeker waarom de CSV wordt gegenereerd met een komma-scheidingsteken met de bovenstaande code. Is er een manier waarop ik het scheidingsteken voor het CSV-bestand expliciet kan definiëren. Op zoek naar uw antwoord het snelst. Dank. Groeten, Amit
Deze opmerking is gemaakt door de moderator op de site
hallo Alex, zou je de code kunnen weergeven om de bestanden in csv-indeling op te slaan, behalve de documentenmap?
Deze opmerking is gemaakt door de moderator op de site
hallo ik heb een macro nodig die pijp "|" converteert gescheiden csv in xlsx vragen mapnaam niet een enkel bestand. ik heb het dringend nodig.


Met vriendelijke groet,
Deze opmerking is gemaakt door de moderator op de site
Sorry kan dit probleem niet oplossen
Deze opmerking is gemaakt door de moderator op de site
Ik heb een macro nodig om alle tabbladen in een Excel-bestand naar een andere set bestanden te converteren.
Deze opmerking is gemaakt door de moderator op de site
Good Day,
Welke bestanden wilt u opnemen in uw "andere set bestanden"?
Deze opmerking is gemaakt door de moderator op de site
1) Ik heb een werkmap met meerdere bladen erin.
2) Die meerdere bladen hebben meerdere kolommen.
3) Ik heb één kolom in elk blad dat een aaneenschakeling is van alle andere kolommen.
4) Nu wil ik die aaneengeschakelde kolom uitpakken naar een tekstbestand met dezelfde naam als de bladnaam.
5) De manier waarop ik wil, is dat ik gewoon op één knop druk en het moet zoeken naar alle tabbladen, die kolom extraheren (zeg aaneengeschakelde kolom is AA) van elk blad, dat in een tekstbestand plaatsen, het tekstbestand dezelfde naam geven als bladnaam en bewaar in een map op mijn bureaublad, zeg H-schijf.
Deze opmerking is gemaakt door de moderator op de site
Good Day,
Sorry kan hier niet mee helpen, je kunt je vraag stellen in ons forum: https://www.extendoffice.com/forum.html om meer Excel-ondersteuning te krijgen van onze professional.
Deze opmerking is gemaakt door de moderator op de site
A, ik zie nu dat de regel "VBA-code: exporteer alle bladen naar gescheiden csv-bestanden" niet naar het codegebied moet worden gekopieerd. Misschien kan dat explicieter zijn voor nieuwkomers en voor mensen die instructies expliciet volgen.
Deze opmerking is gemaakt door de moderator op de site
Hoi Ken,
Dat is de beschrijvingsregel van de code. De regel "Sub ExportSheetsToCSV()" moet de eerste regel van de code zijn.
Het spijt me voor het ongemak.
Deze opmerking is gemaakt door de moderator op de site
Bedankt - script erg handig
Deze opmerking is gemaakt door de moderator op de site
Uitstekende oplossing ..... Het heeft mijn tijd bespaard ....... Dank je
Deze opmerking is gemaakt door de moderator op de site
Als je gewoon meerdere bladen wilt converteren, blijf ze aanvinken en schakel andere bladen uit die je niet wilt converteren
meneer voor thuis stap heb je macro
Deze opmerking is gemaakt door de moderator op de site
Goede dag,
Kan het niet helpen met VBA-code hiervoor. Waarom probeert u niet het hulpprogramma Split Workbook dat we in de post bieden? Het zal je tijd besparen en je zult er dol op zijn.
Deze opmerking is gemaakt door de moderator op de site
Hallo,
heel erg bedankt voor een geweldige macro, het werkt als een charme! Maar ik heb een vraag, wat als ik deze macro (CSV-versie) op PERSONAL.xlsb wil opslaan om deze beschikbaar te maken op elke Excel-instantie?

Als ik het probeer, neemt CurDir de PERSONAL directory, in plaats van het actieve werkblad...

Bedankt voor alle hulp!
Deze opmerking is gemaakt door de moderator op de site
Hallo Mirko,
Methode in dit artikel kan je een plezier doen: https://trumpexcel.com/personal-macro-workbook/.
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om deze code te gebruiken om alleen een bepaald bereik te exporteren naar een .csv-bestand van elk blad in een boek?
Deze opmerking is gemaakt door de moderator op de site
Hoi,
De VBA-code in dit artikel kan je een plezier doen: https://www.extendoffice.com/documents/excel/2897-excel-export-range-to-csv.html
Deze opmerking is gemaakt door de moderator op de site
Dus, dit is geweldig! MAAR, wat als ik een werkmap moet splitsen in .csv, maar voor pc, niet voor MAC? Als iemand een manier heeft om het te doen, help me dan alsjeblieft. Ik zal heel dankbaar zijn.
Deze opmerking is gemaakt door de moderator op de site
Hoi,
De eerste VBA-code in dit bericht kan je een plezier doen.
Deze opmerking is gemaakt door de moderator op de site
hoe kan ik de code wijzigen om deze in een ander bestandsformaat zoals een xlsx op te slaan? of ASCII.
Deze opmerking is gemaakt door de moderator op de site
Bedankt! Ik heb dit gebruikt om alle bladen van mijn .xlsx-bestand op te slaan in verschillende .xlsx
Sub ExportSheetsToXLSX()
Dim xWs als werkblad
Dim xcsv-bestand als string
Voor elke xWs In Application.ActiveWorkbook.Worksheets
xWs.Kopiëren
xlsxFile = CurDir & "\" & xWs.Naam & ".xlsx"
Application.ActiveWorkbook.SaveAs Bestandsnaam:=xlsxFile, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.ActiveWorkbook.Saved = True
Applicatie.ActiveWorkbook.Sluiten
Volgende
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo, bedankt voor de geweldige code, het is geweldig (exporteer alle bladen naar gescheiden tekstbestanden)! Gebruikte het bij vele gelegenheden maar kwam een ​​bestand tegen waar het niet zal werken, debugger zegt runtime error 1004 en die methodekopie van een werkblad is mislukt en markeert regel xWs.Copy. Is er een regel met betrekking tot een werkbladnaam waardoor code niet kan worden uitgevoerd?
Deze opmerking is gemaakt door de moderator op de site
Hallo, bedankt voor de geweldige code (exporteer alle bladen naar gescheiden tekstbestanden), gebruik het veel. Kwam net een werkmap tegen waar het niet werkt, debugger zegt dat regel xWs.Copy een probleem is, pop-up zegt dat methodekopie van een werkmap is mislukt. Zijn er beperkingen met betrekking tot een werkbladnaam of iets dergelijks, zoals geen samengevoegde cellen enz.?

Bedankt voor een antwoord :)
Deze opmerking is gemaakt door de moderator op de site
Hallo BI,
Bevat uw werkblad een draaitabel? Kunt u ons uw gegevens verstrekken voor het testen? Als je het niet erg vindt, upload dan hier je voorbeeldbestand.
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties