Πώς να μετατρέψετε πολλά αρχεία Excel σε αρχεία CSV στο Excel;

Η μετατροπή αρχείων Excel σε μορφή CSV μπορεί να γίνει χρησιμοποιώντας τη λειτουργία "Αποθήκευση ως", αλλά η μη αυτόματη επεξεργασία πολλών αρχείων ένα προς ένα είναι χρονοβόρα. Εάν χρειάζεται να μετατρέψετε ομαδικά πολλά αρχεία Excel σε ξεχωριστά αρχεία CSV, αυτός ο οδηγός προσφέρει δύο αποτελεσματικές μεθόδους:

Μαζική μετατροπή αρχείων Excel ενός φακέλου σε αρχεία CSV με VBA

Μετατροπή φύλλων βιβλίου εργασίας σε ξεχωριστά αρχεία CSV με το Kutools για Excel

Μαζική μετατροπή αρχείων Excel ενός φακέλου σε αρχεία CSV με VBA

Στο Excel, δεν υπάρχει καμία ενσωματωμένη λειτουργία για την γρήγορη εκτέλεση αυτής της εργασίας, εκτός από τη χρήση VBA.

1. Ενεργοποιήστε το Excel και πατήστε Alt + F11 ανοίγουν τα κλειδιά Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα ενότητα.

3. Αντιγράψτε τον παρακάτω κώδικα και επικολλήστε τους στο νέο παράθυρο Module.

VBA: Μαζική μετατροπή αρχείων Excel σε CSV

Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS  As String
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    Application.DisplayAlerts = False
    On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
    xObjFD.AllowMultiSelect = False
    xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
    If xObjFD.Show <> -1 Then Exit Sub
    xStrEFPath = xObjFD.SelectedItems(1) & "\"
    Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
    xObjSFD.AllowMultiSelect = False
    xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
    If xObjSFD.Show <> -1 Then Exit Sub
    xStrSPath = xObjSFD.SelectedItems(1) & "\"
    xStrEFFile = Dir(xStrEFPath & "*.xls*")
    Do While xStrEFFile <> ""
       xS = xStrEFPath & xStrEFFile
        Set xObjWB = Application.Workbooks.Open(xS)
        xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
        xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
        xObjWB.Close savechanges:=False
        xStrEFFile = Dir
  Loop
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

4. Τύπος F5 κλειδί, επιλέξτε το φάκελο που περιέχει τα αρχεία Excel που θέλετε να μετατρέψετε σε αρχεία CSV στο πρώτο παράθυρο διαλόγου.

5. κλικ OKκαι, στη συνέχεια, στο δεύτερο παράθυρο διαλόγου, επιλέξτε το φάκελο για να τοποθετήσετε τα αρχεία CSV.

6. κλικ OK, τώρα τα αρχεία Excel στο φάκελο έχουν μετατραπεί σε αρχεία CSV και αποθηκεύονται σε άλλο φάκελο.

Μετατροπή φύλλων βιβλίου εργασίας σε ξεχωριστά αρχεία CSV με το Kutools για Excel

Όπως γνωρίζουμε, μπορούμε να μετατρέψουμε ολόκληρο το βιβλίο εργασίας σε ένα αρχείο CSV στο Excel μόνο με τη λειτουργία Αποθήκευση ως. Μερικές φορές, μπορεί να χρειαστεί να μετατρέψετε μεμονωμένα φύλλα σε αρχεία CSV. Σε τέτοιες περιπτώσεις, το Διαχωρισμός βιβλίου εργασίας χρησιμότητα του Kutools για Excel μπορεί να βοηθήσει.

1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να μετατρέψετε τα φύλλα του ως ξεχωριστά αρχεία CSV, κάντε κλικ στο Kutools Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας.

2. Στο Διαχωρισμός βιβλίου εργασίας διαλόγου, ελέγξτε το όνομα του φύλλου που θέλετε να διαχωρίσετε (όλα τα φύλλα ελέγχονται από προεπιλογή), ελέγξτε Αποθήκευση ως πληκτρολογήστε, επιλέξτε CSV (Macintosh) (* .CSV) από την αναπτυσσόμενη λίστα.

3. κλικ Σπλιτ για να βγει ένα α Αναζήτηση φακέλου διαλόγου, επιλέξτε ή δημιουργήστε ένα φάκελο για να τοποθετήσετε τα αρχεία CSV.

4. κλικ OK, και το βιβλίο εργασίας θα χωριστεί σε ξεχωριστά αρχεία CSV.

Επίδειξη: Διαχωρίστε το βιβλίο εργασίας χρησιμοποιώντας Kutools για EXCEL