Πώς να αποθηκεύσετε κάθε φύλλο ως ξεχωριστό αρχείο κειμένου από ένα βιβλίο εργασίας;
Όταν θέλετε να αποθηκεύσετε ένα φύλλο εργασίας ως αρχείο κειμένου, μπορείτε να χρησιμοποιήσετε τη λειτουργία Αποθήκευση ως Excel για να αποθηκεύσετε το φύλλο εργασίας ως αρχείο κειμένου. Αλλά αν θέλετε να αποθηκεύσετε κάθε φύλλο ενός βιβλίου εργασίας ως ξεχωριστό αρχείο κειμένου, τα βήματα του Save As πρέπει να σας ενοχλήσουν. Εδώ σας παρουσιάζω μερικά ενδιαφέροντα κόλπα για να λύσετε γρήγορα αυτήν τη βαρετή δουλειά στο Excel.
Αποθηκεύστε ένα φύλλο ως αρχείο κειμένου με το VBA
Αποθηκεύστε κάθε φύλλο ενός βιβλίου εργασίας ως ξεχωριστό αρχείο κειμένου με το Kutools για Excel 
Εξαγάγετε μια επιλογή φύλλου ως αρχείο κειμένου με το Kutools για Excel
Αποθηκεύστε ένα φύλλο ως αρχείο κειμένου με το VBA
Εάν δεν θέλετε να χρησιμοποιήσετε τη λειτουργία Αποθήκευση ως για να αποθηκεύσετε το φύλλο ως αρχείο κειμένου, μπορείτε να χρησιμοποιήσετε τον κώδικα VBA.
1. Ενεργοποιήστε το φύλλο που θέλετε να αποθηκεύσετε ως αρχείο κειμένου.
2. Τύπος Alt + F11 πλήκτρα για εμφάνιση Microsoft Visual Basic για εφαρμογές παράθυρο.
3. κλικ Κύριο θέμα > Μονάδα μέτρησης από το παράθυρο και, στη συνέχεια, επικολλήστε κάτω από τον κώδικα VBA στο Module.
VBA: Αποθήκευση φύλλου ως αρχείο κειμένου.
Sub SaveSheetToTxt()
'Updateby20150910
Dim xRet As Long
Dim xFileName As Variant
On Error GoTo ErrHandler:
xFileName = Application.GetSaveAsFilename(ActiveSheet.Name, "TXT File (*.txt), *.txt", , "Kutools for Excel")
If xFileName = False Then Exit Sub
If Dir(xFileName) <> "" Then
xRet = MsgBox("File '" & xFileName & "' exists. Overwrite?", vbYesNo + vbExclamation, "Kutools for Excel")
If xRet <> vbYes Then
Exit Sub
Else
Kill xFileName
End If
End If
ActiveSheet.Copy
ActiveWorkbook.SaveAs xFileName, xlUnicodeText
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
ActiveWorkbook.Close False
End If
My_Exit:
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
End Sub4. κλικ τρέξιμο για να εκτελέσετε τον κώδικα και στη συνέχεια στο Kutools για Excel διαλόγου, επιλέξτε ένα φάκελο για να βάλετε το αρχείο κειμένου και καθορίστε ένα όνομα για το αρχείο κειμένου. Δείτε το στιγμιότυπο οθόνης:
5. κλικ Αποθήκευση. Τώρα το ενεργό φύλλο αποθηκεύεται ως αρχείο κειμένου.
Συμβουλή: με το VBA, μπορείτε να αποθηκεύσετε μόνο ένα φύλλο ως αρχείο κειμένου ταυτόχρονα.
Αποθηκεύστε κάθε φύλλο ενός βιβλίου εργασίας ως ξεχωριστό αρχείο κειμένου με το Kutools για Excel
Εάν έχετε ένα μεγάλο βιβλίο εργασίας με εκατοντάδες φύλλα που απαιτούνται για να αποθηκεύσετε για να διαχωρίσετε αρχεία κειμένου, η μέθοδος VBA είναι επίσης σπατάλη χρόνου. Σε αυτήν την περίπτωση, μπορείτε να δοκιμάσετε να το χρησιμοποιήσετε Kutools για Excel'S Διαχωρισμός βιβλίου εργασίας να το χειριστείτε, κάτι που θα σας δώσει μια απροσδόκητη έκπληξη.
| Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:
1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να αποθηκεύσετε τα φύλλα του ως ανεξάρτητα αρχεία κειμένου και, στη συνέχεια, κάντε κλικ στο Kutools Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας. Δείτε το στιγμιότυπο οθόνης:
2. Στο Διαχωρισμός βιβλίου εργασίας διαλόγου, επιλέξτε τα φύλλα που θέλετε να διαχωρίσετε και αποθηκεύστε ως αρχεία κειμένου, από προεπιλογή, όλα τα φύλλα είναι επιλεγμένα και, στη συνέχεια, ελέγξτε Καθορίστε τη μορφή αποθήκευσης, και επιλέξτε Κείμενο Unicode (*. Txt) από την κάτω αναπτυσσόμενη λίστα. Δείτε το στιγμιότυπο οθόνης:
3. κλικ Σπλιτκαι, στη συνέχεια, επιλέξτε έναν φάκελο από τον οποίο θα τοποθετήσετε τα αρχεία κειμένου Αναζήτηση φακέλου διάλογος. Δείτε το στιγμιότυπο οθόνης:
4. κλικ OK. Τώρα κάθε φύλλο του βιβλίου εργασίας αποθηκεύεται ως ξεχωριστό αρχείο κειμένου στον επιλεγμένο φάκελο.
Με Διαχωρισμός βιβλίου εργασίας of Kutools για Excel, μπορείτε να διαχωρίσετε ένα βιβλίο εργασίας και να τα αποθηκεύσετε ως ξεχωριστά αρχεία xls, αρχεία xlsx, αρχεία PDF ή αρχεία CSV, κάντε κλικ εδώ για να μάθετε περισσότερα σχετικά με αυτό το βοηθητικό πρόγραμμα.
Κάντε κλικ εδώ για δωρεάν λήψη του Kutools για Excel
Εξαγάγετε μια επιλογή φύλλου ως αρχείο κειμένου με το Kutools για Excel
Με Kutools για Excel, μπορείτε επίσης να εξαγάγετε μια επιλογή φύλλου ως αρχείο κειμένου χρησιμοποιώντας το Εξαγωγή εύρους σε αρχείο.
| Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:
1. Επιλέξτε ένα εύρος ή εύρη που θέλετε να αποθηκεύσετε ως αρχείο κειμένου και κάντε κλικ στο Kutools Plus > Εισαγωγή / Εξαγωγή > Εξαγωγή εύρους σε αρχείο. Δείτε το στιγμιότυπο οθόνης:
2. Στη συνέχεια, στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε Unicode Κείμενο κάτω από την επιλογή μορφή αρχείου ενότητα και μετά πηγαίνετε στο Επιλογές κειμένου ενότητα για να ελέγξετε μια επιλογή όπως χρειάζεστε και, στη συνέχεια, επιλέξτε μια τοποθεσία αποθήκευσης.
3. κλικ Ok. Τώρα ονομάστε το εξαγόμενο αρχείο κειμένου στο αναδυόμενο παράθυρο Εξαγωγή εύρους σε αρχείο πλαίσιο διαλόγου και κάντε κλικ στο OK κουμπί.
Μέχρι στιγμής η επιλογή έχει εξαχθεί ως ξεχωριστό αρχείο κειμένου.
Υπάρχουν περισσότερα από 120 εργαλεία Kutools για Excel, για να το εγκαταστήσετε και να δοκιμάσετε 60 ημέρες, τότε ενδέχεται να βρείτε πολλές χρήσιμες λειτουργίες που δεν έχετε παρακολουθήσει.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
