Μετάβαση στο κύριο περιεχόμενο

Πώς να αποθηκεύσετε ή να εξαγάγετε κάθε φύλλο ως αρχείο CSV / PDF στο Excel;

Για παράδειγμα, έχετε ένα μεγάλο βιβλίο εργασίας με πολλά φύλλα και θέλετε να αποθηκεύσετε ή να εξαγάγετε κάθε φύλλο ως ξεχωριστό αρχείο .csv ή αρχείο PDF, πώς να το κάνετε εύκολα και γρήγορα; Σε αυτό το άρθρο, θα εισαγάγω αρκετές μεθόδους για την επίλυσή του.


Αποθηκεύστε ή εξαγάγετε κάθε φύλλο ως αρχείο CSV / PDF με τη λειτουργία Αποθήκευση ως

Όπως γνωρίζετε, το Microsoft Excel μπορεί να αποθηκεύσει το τρέχον φύλλο εργασίας ως μεμονωμένο αρχείο .csv ή αρχείο PDF. Επομένως, μπορείτε να αποθηκεύσετε ή να εξαγάγετε κάθε φύλλο ως αρχείο .csv ή αρχείο PDF ένα προς ένα χειροκίνητα.

1. Μεταβείτε στο φύλλο που θα αποθηκεύσετε ή εξαγάγετε ως μεμονωμένο αρχείο .csv και κάντε κλικ στο ΑρχείαΚουμπί γραφείου)> Αποθήκευση ως.

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

3. Θα εμφανιστούν διαδοχικά δύο πλαίσια διαλόγου προειδοποίησης. Παρακαλώ πατήστε OK > Ναι.

Σημείωση: Εάν αποθηκεύσετε το ενεργό φύλλο εργασίας ως αρχείο PDF, αυτά τα παράθυρα διαλόγου δεν θα εμφανιστούν. Απλώς προχωρήστε στο επόμενο βήμα.

4. Επαναλάβετε το παραπάνω βήμα 1-3 για να αποθηκεύσετε άλλα φύλλα ως μεμονωμένα αρχεία .csv ένα προς ένα.


Μαζική αποθήκευση ή εξαγωγή κάθε φύλλου ως αρχείο CSV με VBA

Εάν υπάρχει ένας αριθμός φύλλων που θέλετε να αποθηκεύσετε ή να εξαγάγετε ως αρχεία .csv, η πρώτη μέθοδος θα είναι αρκετά χρονοβόρα και κουραστική. Αυτό το VBA μπορεί να απλοποιήσει την εργασία και να διευκολύνει την αποθήκευση ή εξαγωγή κάθε φύλλου ως αρχείο .csv.

1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Application.

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

VBA: Αποθηκεύστε κάθε φύλλο ως μεμονωμένο αρχείο CSV

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. Κάντε κλικ στο κουμπί τρέξιμο πατήστε το κουμπί F5 κλειδί για την εκτέλεση αυτού του VBA.

4. Στο πλαίσιο διαλόγου Άνοιγμα αναζήτησης, καθορίστε το φάκελο προορισμού στον οποίο θα αποθηκεύσετε όλα τα αρχεία .csv και κάντε κλικ στο OK κουμπί.

Στη συνέχεια, θα δείτε ότι κάθε φύλλο αποθηκεύεται / εξάγεται ως μεμονωμένο αρχείο .csv στον καθορισμένο φάκελο προορισμού.


Μαζική αποθήκευση ή εξαγωγή κάθε φύλλου ως αρχείο CSV / PDF με το Kutools για Excel

Ορισμένοι χρήστες του Excel ενδέχεται να αρνηθούν τον κωδικό VBA για ορισμένους λόγους. Μην ανησυχείς! Η τρίτη μέθοδος μπορεί επίσης να αποθηκεύσει μαζικά ή να εξάγει κάθε φύλλο ως αρχείο .csv ή αρχείο PDF εύκολα από το Διαχωρισμός βιβλίου εργασίας χρησιμότητα του Kutools για Excel.

Kutools για Excel - Supercharge Excel με πάνω από 300 βασικά εργαλεία. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Παρ'το Τώρα

1. Κάντε κλικ στο κουμπί Εταιρεία > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας.

εγγράψτε κάθε φύλλο στο csv 2

2. Στο παράθυρο διαλόγου Άνοιγμα βιβλίου εργασίας διαχωρισμού,

εγγράψτε κάθε φύλλο στο csv 8

(1) Συνεχίστε να επιλέγετε όλα τα φύλλα. Εάν όχι, μπορείτε να επιλέξετε το πλαίσιο ελέγχου πριν Όνομα φύλλου εργασίας για να επιλέξετε όλα τα φύλλα?

(2) Ελέγξτε το Καθορίστε τη μορφή αποθήκευσης επιλογή;

(3) Κάντε κλικ στο παρακάτω πλαίσιο Καθορίστε τη μορφή αποθήκευσης και επιλέξτε CSV (Macintosh) (*. Csv) or PDF (* .pdf) από την αναπτυσσόμενη λίστα.

(4) Κάντε κλικ στο Σπλιτ κουμπί.

 

Note: Εάν υπάρχουν κρυμμένα και κενά φύλλα εργασίας στο βιβλίο εργασίας σας, ελέγξτε το Παράλειψη κρυφών φύλλων εργασίας και το Παράλειψη κενού φύλλου εργασίας Το πλαίσιο θα αγνοήσει όλα τα κενά ή κρυφά φύλλα κατά την εξαγωγή.

Kutools για Excel - Supercharge Excel με πάνω από 300 βασικά εργαλεία. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Παρ'το Τώρα

3. Στο παράθυρο διαλόγου "Αναζήτηση για φάκελο", καθορίστε το φάκελο προορισμού στον οποίο θα αποθηκεύσετε όλο το αρχείο .csv ή το αρχείο PDF και κάντε κλικ στο OK κουμπί.

Τώρα θα δείτε ότι κάθε φύλλο εξάγεται και αποθηκεύεται ως μεμονωμένο αρχείο .csv στον καθορισμένο φάκελο.


Επίδειξη: αποθήκευση ή εξαγωγή κάθε φύλλου ως αρχείο CSV / PDF στο Excel


Kutools για Excel: Πάνω από 300 εύχρηστα εργαλεία στα χέρια σας! Ξεκινήστε τη δωρεάν δοκιμή 30 ημερών χωρίς περιορισμούς δυνατοτήτων σήμερα. Κατεβάστε τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you’d better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
This comment was minimized by the moderator on the site
Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature? Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show -1 Then Exit Sub xDir = folder.SelectedItems(1) For Each xWs In Application.ActiveWorkbook.Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations