Πώς να μετατρέψετε πολλά αρχεία Excel σε αρχεία CSV στο Excel;
Στο Excel, μπορούμε να μετατρέψουμε το βιβλίο εργασίας σε αρχείο CSV με τη λειτουργία Αποθήκευση ως, αλλά θα μπορούσατε να μάθετε πώς να μετατρέψετε μαζικά πολλά αρχεία Excel σε διαχωρισμό αρχείων CSV; Σε αυτό το άρθρο, εισάγω έναν κώδικα VBA για τη μετατροπή παρτίδων όλων των αρχείων Excel σε ένα φάκελο σε αρχεία CSV στο Excel.
Μαζική μετατροπή αρχείων 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 με τη λειτουργία Save As. Αλλά σε ορισμένες περιπτώσεις, θέλετε να μετατρέψετε το μεμονωμένο φύλλο σε αρχείο CSV, σε αυτήν την περίπτωση, το Διαχωρισμός βιβλίου εργασίας χρησιμότητα του Kutools για Excel μπορεί να σας βοηθήσει.
Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:(Δωρεάν λήψη Kutools για Excel τώρα!)
1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να μετατρέψετε τα φύλλα του ως ξεχωριστά αρχεία CSV, κάντε κλικ στο Kutools Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας.
2. Στο Διαχωρισμός βιβλίου εργασίας διαλόγου, ελέγξτε το όνομα του φύλλου που θέλετε να διαχωρίσετε (όλα τα φύλλα ελέγχονται από προεπιλογή), ελέγξτε Αποθήκευση ως πληκτρολογήστε, επιλέξτε CSV (Macintosh) (* .CSV) από την αναπτυσσόμενη λίστα.
3. κλικ Σπλιτ για να βγει ένα α Αναζήτηση φακέλου διαλόγου, επιλέξτε ή δημιουργήστε ένα φάκελο για να τοποθετήσετε τα αρχεία CSV.
4. κλικ OK, τώρα το βιβλίο εργασίας έχει χωριστεί ως ξεχωριστά αρχεία CSV.
Διαχωρισμός βιβλίου εργασίας
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!