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

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

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

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

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

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

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

1. Ενεργοποιήστε το φύλλο που θέλετε να αποθηκεύσετε ως αρχείο κειμένου.

2. Τύπος Alt + F11 πλήκτρα για εμφάνιση Microsoft Visual Basic για εφαρμογές παράθυρο.

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

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 διαλόγου, επιλέξτε ένα φάκελο για να βάλετε το αρχείο κειμένου και καθορίστε ένα όνομα για το αρχείο κειμένου. Δείτε το στιγμιότυπο οθόνης:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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