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

Πώς να αποθηκεύσετε κάθε φύλλο ως ξεχωριστό αρχείο κειμένου από ένα βιβλίο εργασίας;

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

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

Αποθηκεύστε κάθε φύλλο ενός βιβλίου εργασίας ως ξεχωριστό αρχείο κειμένου με το Kutools για Excel καλή ιδέα3

Εξαγάγετε μια επιλογή φύλλου ως αρχείο κειμένου με το 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 Sub

4. κλικ τρέξιμο για να εκτελέσετε τον κώδικα και στη συνέχεια στο Kutools για Excel διαλόγου, επιλέξτε ένα φάκελο για να βάλετε το αρχείο κειμένου και καθορίστε ένα όνομα για το αρχείο κειμένου. Δείτε το στιγμιότυπο οθόνης:

αποθήκευση εγγράφου ως αρχείο κειμένου 1

5. κλικ Αποθήκευση. Τώρα το ενεργό φύλλο αποθηκεύεται ως αρχείο κειμένου.

Συμβουλή: με το VBA, μπορείτε να αποθηκεύσετε μόνο ένα φύλλο ως αρχείο κειμένου ταυτόχρονα.


βέλος μπλε δεξιά φούσκα Αποθηκεύστε κάθε φύλλο ενός βιβλίου εργασίας ως ξεχωριστό αρχείο κειμένου με το Kutools για Excel

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

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

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

αποθήκευση εγγράφου ως αρχείο κειμένου 2

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

αποθήκευση εγγράφου ως αρχείο κειμένου 3

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

αποθήκευση εγγράφου ως αρχείο κειμένου 4

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

Με Διαχωρισμός βιβλίου εργασίας of Kutools για Excel, μπορείτε να διαχωρίσετε ένα βιβλίο εργασίας και να τα αποθηκεύσετε ως ξεχωριστά αρχεία xls, αρχεία xlsx, αρχεία PDF ή αρχεία CSV, κάντε κλικ εδώ για να μάθετε περισσότερα σχετικά με αυτό το βοηθητικό πρόγραμμα.

Κάντε κλικ εδώ για δωρεάν λήψη του Kutools για Excel


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

Με Kutools για Excel, μπορείτε επίσης να εξαγάγετε μια επιλογή φύλλου ως αρχείο κειμένου χρησιμοποιώντας το Εξαγωγή εύρους σε αρχείο.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Επιλέξτε ένα εύρος ή εύρη που θέλετε να αποθηκεύσετε ως αρχείο κειμένου και κάντε κλικ στο Kutools Plus > Εισαγωγή / Εξαγωγή > Εξαγωγή εύρους σε αρχείο. Δείτε το στιγμιότυπο οθόνης:

αποθήκευση εγγράφου ως αρχείο κειμένου 5

2. Στη συνέχεια, στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε Unicode Κείμενο κάτω από την επιλογή μορφή αρχείου ενότητα και μετά πηγαίνετε στο Επιλογές κειμένου ενότητα για να ελέγξετε μια επιλογή όπως χρειάζεστε και, στη συνέχεια, επιλέξτε μια τοποθεσία αποθήκευσης.

αποθήκευση εγγράφου ως αρχείο κειμένου 6

3. κλικ Ok. Τώρα ονομάστε το εξαγόμενο αρχείο κειμένου στο αναδυόμενο παράθυρο Εξαγωγή εύρους σε αρχείο πλαίσιο διαλόγου και κάντε κλικ στο OK κουμπί.

αποθήκευση εγγράφου ως αρχείο κειμένου 7

Μέχρι στιγμής η επιλογή έχει εξαχθεί ως ξεχωριστό αρχείο κειμένου.

Υπάρχουν περισσότερα από 120 εργαλεία Kutools για Excel, για να το εγκαταστήσετε και να δοκιμάσετε 60 ημέρες, τότε ενδέχεται να βρείτε πολλές χρήσιμες λειτουργίες που δεν έχετε παρακολουθήσει.

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations