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

Πώς να εξαγάγετε δεδομένα Excel (επιλογή ή φύλλα) σε αρχεία κειμένου στο Excel;

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

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

Από προεπιλογή, τα δεδομένα του Excel θα αποθηκευτούν ως βιβλία εργασίας με τη μορφή . XLSX. Ωστόσο, μπορούμε να εξάγουμε ένα φύλλο εργασίας του υπάρχοντος βιβλίου εργασίας ως αρχεία κειμένου με το Αποθήκευση ως χαρακτηριστικό. Κάντε τα εξής:

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

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

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

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

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


Εξαγωγή επιλογής (ή μίας στήλης) σε αρχείο κειμένου με VBA

Ο παρακάτω κώδικας VBA μπορεί επίσης να σας βοηθήσει να εξαγάγετε τα επιλεγμένα δεδομένα εύρους (για παράδειγμα μία στήλη) στο αρχείο κειμένου, κάντε τα εξής:

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

VBA: επιλογή εξαγωγής ή ολόκληρο το φύλλο εργασίας σε αρχείο κειμένου

Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

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

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


Εξαγωγή επιλογής (ή μιας στήλης) σε αρχείο κειμένου με το Kutools για Excel

Η Αποθήκευση ως Η εντολή μπορεί να εξάγει όλα τα δεδομένα στο ενεργό φύλλο εργασίας ως κείμενο. Τι γίνεται αν εξάγετε όλα τα δεδομένα καθορισμένων ανενεργών φύλλων εργασίας ή μέρος των δεδομένων σε ένα φύλλο εργασίας ως αρχείο κειμένου; Kutools για Excel's Εξαγωγή εύρους σε αρχείο Το βοηθητικό πρόγραμμα μπορεί να μας βοηθήσει να εξαγάγουμε και να αποθηκεύσουμε τα δεδομένα στην επιλογή ως αρχείο κειμένου εύκολα ..  

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

1. Επιλέξτε το εύρος που θα εξαγάγετε σε ένα αρχείο κειμένου (στην περίπτωσή μας, επιλέγουμε τη στήλη Α) και κάντε κλικ στο Kutools Plus > Εισαγωγή εξαγωγή > Εξαγωγή εύρους σε αρχείο, δείτε το στιγμιότυπο οθόνης:
Πρόσθετο Excel: εξαγωγή επιλογής σε αρχείο κειμένου

2. Στο Εξαγωγή εύρους σε αρχείο πλαίσιο διαλόγου, κάντε το παρακάτω στιγμιότυπο οθόνης:
Πρόσθετο Excel: εξαγωγή επιλογής σε αρχείο κειμένου
(1) Ελέγξτε το Unicode Κείμενο επιλογή του μορφή αρχείου Ενότητα;
(2) Ελέγξτε την επιλογή Αποθήκευση πραγματικών τιμών ή Αποθήκευση τιμών όπως φαίνεται στην επιλογή όπως απαιτείται στην ενότητα Επιλογές κειμένου.
(3) Καθορίστε το φάκελο προορισμού στον οποίο θα αποθηκεύσετε το εξαγόμενο αρχείο κειμένου.
(4) Κάντε κλικ στο Ok κουμπί.

3. Ονομάστε το εξαγόμενο αρχείο κειμένου στο νέο παράθυρο διαλόγου ανοίγματος και κάντε κλικ στο Ok κουμπί.
ονομάστε το εξαγόμενο αρχείο κειμένου

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

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


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

Μερικές φορές μπορεί να χρειαστεί να εξαγάγετε πολλά φύλλα εργασίας σε πολλά αρχεία κειμένου στο Excel. Η λειτουργία Αποθήκευση ως μπορεί να είναι λίγο κουραστική! Μην ανησυχείς! Kutools για Excel Διαχωρισμός βιβλίου εργασίας Το βοηθητικό πρόγραμμα παρέχει στους χρήστες του Excel μια εύκολη λύση για την εξαγωγή πολλών φύλλων εργασίας σε πολλά ξεχωριστά αρχεία κειμένου με πολλά κλικ. 

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

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

2. Στο άνοιγμα διαλόγου Split Workbook, κάντε τα εξής:
Πρόσθετο Excel: εξαγωγή πολλών φύλλων σε αρχεία κειμένου
(1) Ελέγξτε τα φύλλα εργασίας που θα εξαγάγετε για να διαχωρίσετε αρχεία κειμένου στο Όνομα βιβλίου εργασίας Ενότητα;
(2) Ελέγξτε το Καθορίστε τη μορφή αποθήκευσης και, στη συνέχεια, επιλέξτε το Κείμενο Unicode (* .txt) από την παρακάτω αναπτυσσόμενη λίστα, δείτε το αριστερό στιγμιότυπο οθόνης:
(3) Κάντε κλικ στο Σπλιτ κουμπί.

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

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

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

Αποθηκεύστε εύκολα κάθε φύλλο ως ξεχωριστό αρχείο PDF / κείμενο / csv ή βιβλίο εργασίας στο Excel

Κανονικά μπορούμε να αποθηκεύσουμε το ενεργό φύλλο εργασίας ως ξεχωριστό αρχείο .pdf, αρχείο .txt ή αρχείο .csv με τη δυνατότητα Αποθήκευση ως. Αλλά το Kutools για Excel Διαχωρισμός βιβλίου εργασίας Το βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να αποθηκεύσετε εύκολα κάθε βιβλίο εργασίας ως ξεχωριστό αρχείο PDF / TEXT / CSV ή βιβλίο εργασίας στο Excel.


βιβλίο εργασίας διαίρεσης διαφημίσεων pdf 1

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


Επίδειξη: εξαγωγή δεδομένων Excel (επιλογή ή φύλλα) σε αρχεία κειμένου στο Excel


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

Σχετικά Άρθρα:

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

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

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

Περιγραφή


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How would I amend the code for Export selection (or one column) to text file with VBA to autofill the filename with the contents of cell B2?
thanks
This comment was minimized by the moderator on the site
Hi,This is great, thanks a lot.
How would I alter the code for Export selection (or one column) to text file with VBA to auto fill the filename with the contents of cell B2?
This comment was minimized by the moderator on the site
Hi, this code is very useful for me. So thank you very much.
I want to ask that: When i'm using this code, a new line append automatically at the end of the txt content.
Can you help me about preventing this by vba?
This comment was minimized by the moderator on the site
hi guys, i used that code:
Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

and have working, but i need to savea column with cells that contain the function"concatenate", and when i play the vba code, and i save the .TXT file, only what appears it's #REF. how can i to fix it? cause i need the data that appears on that cells?
This comment was minimized by the moderator on the site
Has anyone been able to figure this out? I am having the same issue.
This comment was minimized by the moderator on the site
HELLO
THANK YOU FOR YOUR VBA CODE
SOMETIMES ON CERTAIN TEXT THERE IS "TEXT" IN EXPORT .TXT
THANK YOU FOR WHY
This comment was minimized by the moderator on the site
Thanks for the awesome piece of VBA code to export data to a text file. I have used your code with some of my own. The data I am dealing with is extremely line-length specific and after the macro has run, the text file contains some double quotation marks " at random places, which was never present in my data before. I have tried adding a code line to remove this character at various stages but that does not seem to be working. I am aware that I can manually remove this but would like to resolve it in the VBA code.

Sub Macro3()
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$10591").AutoFilter Field:=1, Criteria1:= _
"=NSZAP*", Operator:=xlAnd
Range("A1").Select
ActiveCell.Offset(200, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Rows("1:10101").EntireRow.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.AutoFilter
Range(Selection, Selection.End(xlDown)).Select
Set WorkRng = Application.Selection
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Hi Harish,
For removing a specified character in bulk, you can replace the character with nothing.
Ctrl + H to open the Find and Replace dialog box, type the specified character in the Find what box, and type noting in the replace with box.
This comment was minimized by the moderator on the site
3/2 You might also note that you don't need to specify the wb prefix once you've .Add ed the workbook since it becomes active. Specifying wb might or might not be more efficient but it can be omitted from some commands. Actually I entirely scrapped the variable wb; I just go Workbooks.Add, and use ActiveWorkbook when needed. (As you are suppressing ScreenUpdating it wouldn't be obvious to some that wb is Active. Tip for beginners (and higher): I always, always develop with ScreenUpdating and DisplayAlerts as True, and when done with development, I consider toggling them off for some passage of code.)
This comment was minimized by the moderator on the site
2/2 - vbYesNoCancel msgboxes and Booleans to indicate whether to export all, selection, or a user specified range - a static String for the prior range address - if len(that static)1 then I set WorkRng=activesheet.UsedRange (You can't copy multiple areas with a single copy, though with a little work you could walk the areas and copy them piecemeal.) - Idiotic Microsoft does not save off empty rows at the start and the bottom of the saved range, and does not save off empty columns at the leftmost and the rightmost of the saved range. When I detect that (UsedRange is not row 1, col. 1, or xlLastCell is not completely lower-right) I msgbox to ask user if they want to plug A1 or the lower right cell. - Then I decided to preemptively address the upper left issue by inserting a row and setting A1 to be text like "The following is for range " - I close with activeworkbook.close SaveChanges:=False - Long time habit since I'm an angry proponent of cleaning up (and the world is a sad place thanks to irresponsible programmers who shirk that responsibility when it matters), I set WorkRng = Nothing on the way out :)
This comment was minimized by the moderator on the site
1/2 (since your software limits comment length) I am a serious coder and I want to inform you that the VBA code here is outstanding. It's clean, and not one line too much, or one too few. It's exemplary coding for demonstration of the process. I'll also mention that as I extensively researched solutions for export of selection, you and only one other person suggested dropping the range into a temp new workbook. All other answers were painfully manually, walking through cell by cell. Even Chip's code is much longer and runs slower (but intentionally so, as it is much more flexible - specifiable delimiters, etc.) Just for your amusement, I made some very minor tweaks but otherwise nearly lifted the code word for word because it basically dropped right into a very intricate and specialized application. Some of these tweaks are something I'm sure you do in practice, but they add lines of code (e.g. error checking) so showing them on this webpage would have muddied your display so that the essential elements of processing would have been cumbersome for readers to follow along. Anyway: (see part 2)
This comment was minimized by the moderator on the site
My query is as mentioned below: I have a report to generate everyday. The data what I get on the final row (only one row but more than one columns) I want it to export to another excel sheet which is a summary excel sheet saved separately on my desktop. Eg: Day1 report - final row export to Summary excel sheet row1 Day2 report - final row export to Summary excel sheet row2 Day3 report - final row export to Summary excel sheet row3 and so on.. Export should be done through a click button., which means when I click on export button the data on the sheet I calculated today should go and save on the Summary excel sheet row1, next day a new excel sheet report calculated should go and save on the Summary excel sheet row2 and so on.. Will this be possible to do... If yes please someone help me on this... Thank you in advance...:-)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations