Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe batch meerdere Excel-bestanden in CSV-bestanden in Excel converteren?

In Excel kunnen we de werkmap converteren naar een CSV-bestand met de functie Opslaan als, maar zou u kunnen weten hoe u meerdere Excel-bestanden in meerdere CSV-bestanden kunt omzetten? In dit artikel introduceer ik een VBA-code om alle Excel-bestanden in een map batchgewijs te converteren naar CSV-bestanden in Excel.

Batch converteer Excel-bestanden van een map naar CSV-bestanden met VBA

Converteer werkbladen in aparte CSV-bestanden met Kutools voor Excelgoed idee3

Met tabbladen bladeren en bewerken van meerdere Excel-werkmappen / Word-documenten als Firefox, Chrome, Internet Verkennen 10!

U kunt er bekend mee zijn om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen deze pagina's te schakelen door eenvoudig op overeenkomstige tabbladen te klikken. Hier ondersteunt de Office-tab een vergelijkbare verwerking, waarmee u door meerdere Excel-werkmappen of Word-documenten kunt bladeren in een Excel-venster of in een Word-venster en eenvoudig kunt schakelen tussen deze werkbladen door op hun tabbladen te klikken. Klik voor gratis 45-dag proef van Office Tab!

iet uitblinken

Batch converteer Excel-bestanden van een map naar CSV-bestanden met VBA

In Excel is er geen ingebouwde functie die deze taak snel kan oplossen, behalve VBA.

1. Schakel Excel in en druk op Alt + F11 sleutels open Microsoft Visual Basic voor toepassingen venster.

2. klikken bijvoegsel > module om een ​​nieuwe module te maken.

3. Kopieer onderstaande code en plak deze in het nieuwe modulevenster.

VBA: Batch converteer Excel-bestanden naar CSV

SubwerkboekenSaveAsCsvToFolder () 'UpdatebyExtendoffice20181031 Dim xObjWB als werkmap Dim xObjWS als werkblad Dim xStrEFPath als string Dim xStrEFFile als string Dim xObjFD As FileDialog Dim xObjSFD As FileDialog Dim xStrSPath As String Dim xStrCSVFName As String Application.ScreenUpdating = False Application.EnableEvents = False Application. Berekening = xlCalculationManual On Error Resume Next Set xObjFD = Application.FileDialog (msoFileDialogFolderPicker) xObjFD.AllowMultiSelect = False xObjFD.Title = "Kutools voor Excel - Selecteer een map die Excel-bestanden bevat" If xObjFD.Show <> -1 Then Exit Sub xStrEvector = xObjFD.SelectedItems (1) & "\" Set xObjSFD = Application.FileDialog (msoFileDialogFolderPicker) xObjSFD.AllowMultiSelect = False xObjSFD.Title = "Kutools voor Excel - Selecteer een map om CSV-bestanden te zoeken" If xObjSFD.Show <> -1 Verlaat dan Sub xStrSPath = xObjSFD.SelectedItems (1) & "\" xStrEFFile = Dir (xStrEFPath & "* .xls *") Do While xStrEFFile <> "" Stel xObjWB = Werkboek in s.Open (Bestandsnaam: = xStrEFPath & xStrEFFile) xStrCSVFName = xStrSPath & Left (xStrEFFile, InStr (1, xStrEFFile, ".") - 1) & ".csv" xObjWB.SaveAs Bestandsnaam: = xStrCSVFName, FileFormat: = xlCSV xObjWB .Sluit opslaan: = False xStrEFFile = Dir Loop Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End Sub

4. druk op F5 toets, selecteer de map die de Excel-bestanden bevat die u naar CSV-bestanden wilt converteren in de eerste popping-dialoog.
doc batch naar csv 1

5. klikken OKselecteer vervolgens in de tweede pop-updialoog de map om de CSV-bestanden te plaatsen.
doc batch naar csv 2

6. klikken OK, nu zijn de Excel-bestanden in de map geconverteerd naar CSV-bestanden en opgeslagen in een andere map.
doc batch naar csv 3


Converteer werkbladen in aparte CSV-bestanden met Kutools voor Excel

Zoals we weten, kunnen we alleen de hele werkmap converteren naar één CSV-bestand in Excel met de functie Opslaan als. Maar in sommige tijden wilt u het enkele blad converteren naar een CSV-bestand, in dit geval het Werkboek splitsen nut van Kutools for Excel kan jou helpen.

Kutools for Excel, met meer dan 200 handige functies, maakt uw werk eenvoudiger.

Na het installeren van Kutools voor Excel, doe het als volgt:(Gratis download nu Kutools voor Excel!)

1. Activeer de werkmap waarvan u de bladen wilt omzetten als afzonderlijke CSV-bestanden, klik Kutools Plus > werkboek > Werkboek splitsen.
doc batch naar csv 4

2. In de Werkboek splitsen dialoog, controleer de bladnaam die u wilt splitsen (alle bladen zijn standaard aangevinkt), vink aan Opslaan als type, kies CSV (Macintosh) (* .CSV) uit de vervolgkeuzelijst.
doc batch naar csv 5

3. klikken spleet naar buiten springen Blader naar de map dialoogvenster, kies of maak een map om de CSV-bestanden te plaatsen.
doc batch naar csv 6

4. klikken OK, nu is de werkmap gesplitst als afzonderlijke CSV-bestanden.
doc batch naar csv 7


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; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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. Volledige functionaliteit 30-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sam · 4 months ago
    Another small remark:

    If the cells in the original Excel files are all formatted as "General", some accuracy is lost when the file is saved as a CSV
    For example, if a cell value in Excel is 0.123456789123456, then the value in the CSV will be 0.123456789 (missing the remaining decimals), as long as the cell was formatted as 'General'. This can be solved by formatting all cells in the Excel file to anything else than 'General' (for example, 'Text'). In that case, the CSV *will* still have the full detail/accuracy. I.e. the values in the Excel files will be fully intact after saving as a CSV.

    How could this macro be changes, so it sets the formatting of all cells in the Excel file to 'Text', before saving as a CSV?
    I imagine that it must somehow make use of the following, but I can't figure out how to correctly include in within the macro:

    Cells.Select
    Selection.NumberFormat = "@"
  • To post as a guest, your comment is unpublished.
    Sam · 4 months ago
    Works great, thanks for the code!
    My only remark would be that this code cuts of file names when there is a "." in the filename itself (e.g. file.123.csv turns into file.csv).
  • To post as a guest, your comment is unpublished.
    Aman · 9 months ago
    Ty it really works dear !!