Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανε ΕΓΓΡΑΦΗ
x

or

Πώς να εξαγάγετε εύρος κυττάρων στο Excel σε αρχείο csv;

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

Εξαγωγή εύρους κυττάρων στο Excel σε αρχείο csv με κώδικα VBA

Εξαγωγή εύρους κυττάρων στο Excel σε αρχείο csv με Kutools για Excel


Εξαγωγή εύρους κυττάρων στο Excel σε αρχείο csv με κώδικα VBA


Εδώ, έχω έναν κώδικα VBA για την εξαγωγή μιας σειράς κελιών από το Excel σε αρχείο csv, κάντε τα εξής:

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

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

Κωδικός VBA: Εξαγωγή εύρους περιεχομένων κυττάρων σε αρχείο csv

Sub ExportRangetoFile()
'Update 20150628
Dim Rng As Range
Dim WorkRng As Range
Dim xFile As Variant
Dim xFileString As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.Copy
Application.ActiveSheet.Cells.Clear
WorkRng.Copy Application.ActiveSheet.Range("A1")
Set xFile = CreateObject("Scripting.FileSystemObject")
xFileString = Application.GetSaveAsFilename("", filefilter:="Comma Separated Text (*.CSV), *.CSV")
Application.ActiveWorkbook.SaveAs Filename:=xFileString, FileFormat:=xlCSV, CreateBackup:=False
End Sub

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

Εύρος εξαγωγής εγγράφων σε csv 1

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK , καθορίστε έναν κατάλογο για την τοποθέτηση του νέου αρχείου csv και δώστε ένα όνομα για το αρχείο csv στο πλαίσιο κειμένου Όνομα αρχείου, δείτε το στιγμιότυπο οθόνης:

Εύρος εξαγωγής εγγράφων σε csv 2

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


Εξαγωγή εύρους κυττάρων στο Excel σε αρχείο csv με Kutools για Excel

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

Kutools για το Excel : με περισσότερα από τα εύχρηστα πρόσθετα Excel του 300, δωρεάν να δοκιμάσετε χωρίς περιορισμούς σε ημέρες 60.

Μετά την εγκατάσταση Kutools για το Excel, ακολουθήστε τα παρακάτω βήματα:

1. Επιλέξτε το εύρος δεδομένων που θέλετε να εξάγετε στο αρχείο csv.

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

Εύρος εξαγωγής εγγράφων σε csv 3 3

3. Στην Εύρος εξαγωγής σε αρχείο , επιλέξτε CSV (Οριοθετημένο με κόμματα) από το μορφή αρχείου και, στη συνέχεια, καθορίστε το Αποθήκευση καταλόγου για να αποθηκεύσετε το νέο αρχείο csv, δείτε το στιγμιότυπο οθόνης:

Εύρος εξαγωγής εγγράφων σε csv 4 4

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

Εύρος εξαγωγής εγγράφων σε csv 5 5

:

Αποθηκεύστε την πραγματική τιμή: Θα εμφανίσει τις πραγματικές τιμές στο τελικό αρχείο.

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

Ανοίξτε το αρχείο μετά την εξαγωγή: Θα ανοίξει αυτόματα το τελικό αρχείο μετά την εξαγωγή του εύρους, αν επιλέξετε αυτήν την επιλογή.

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

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!


Demo: Εξαγωγή εύρους κελιών σε αρχείο csv / pdf / txt / html με Kutools για Excel

Kutools για το Excel: με περισσότερα από τα εύχρηστα πρόσθετα Excel του 200, μπορείτε να δοκιμάσετε χωρίς περιορισμούς σε ημέρες 60. Λήψη και δοκιμή δωρεάν τώρα!


Συνιστώμενα εργαλεία παραγωγικότητας

Κορδέλα του Excel (με εγκατεστημένο το Kutools για το Excel)

Προηγμένα χαρακτηριστικά 300 + Αυξήστε την παραγωγικότητα σας κατά 71% και βοηθήστε να ξεχωρίσετε από το πλήθος!

Θα θέλατε να ολοκληρώσετε την καθημερινή εργασία σας γρήγορα και τέλεια; Kutools Για Excel φέρνει 300 + δροσερά και ισχυρά προηγμένα χαρακτηριστικά (Συνδυάστε βιβλία εργασίας, άθροισμα ανά χρώμα, διαχωρισμός κυψελών, μετατροπή ημερομηνίας κ.ο.κ.) για 1500 + σενάρια εργασίας, σας βοηθά να λύσετε 82% Προβλήματα Excel.

  • Αντιμετωπίστε όλες τις περίπλοκες εργασίες σε δευτερόλεπτα, συμβάλλοντας στην ενίσχυση της ικανότητας εργασίας σας, να κερδίσετε επιτυχία από τον σκληρό ανταγωνισμό και ποτέ να μην ανησυχείτε για να απολυθείτε.
  • Εξοικονομήστε πολύ χρόνο εργασίας, αφήστε πολύ χρόνο για να αγαπάτε και να φροντίζετε την οικογένεια και να απολαμβάνετε μια άνετη ζωή τώρα.
  • Μειώστε χιλιάδες κλικ με το πληκτρολόγιο και το ποντίκι κάθε μέρα, ανακουφίστε τα κουρασμένα μάτια και τα χέρια σας, και να σας δώσει ένα υγιές σώμα.
  • Γίνετε εμπειρογνώμονας Excel σε 3 λεπτά, και να απολαύσετε θαυμάσια ματιά από τους συναδέλφους ή τους φίλους σας.
  • Δεν χρειάζεται πλέον να θυμάστε τυχόν οδυνηρούς τύπους και κώδικες VBA, έχετε ένα χαλαρωτικό και ευχάριστο μυαλό, σας δίνουν μια συγκίνηση που δεν είχατε ποτέ πριν.
  • Περάστε μόνο $ 39, αλλά αξίζει από $ 4000 εκπαίδευση άλλων. Χρησιμοποιείται από ελίτ 110,000 και 300 + γνωστές εταιρείες.
  • 60-απεριόριστη δωρεάν δοκιμή ημέρας. Εγγύηση επιστροφής χρημάτων 60 ημερών. Δωρεάν αναβάθμιση και υποστήριξη για τα έτη 2. Αγοράστε μία φορά, χρησιμοποιήστε για πάντα.
  • Αλλαγή του τρόπου που εργάζεστε τώρα, και να σας δώσει μια καλύτερη ζωή αμέσως!

Το Tab του Office φέρνει αποδοτικές και εύχρηστες καρτέλες στο Office (συμπεριλαμβανομένου του Excel), ακριβώς όπως το Chrome, ο Firefox και ο νέος IE

  • Αυξάνει την παραγωγικότητά σας κατά 50% κατά την προβολή και την επεξεργασία πολλών εγγράφων.
  • Μειώστε εκατοντάδες κλικ του ποντικιού για σας κάθε μέρα, πείτε αντίο στο χέρι του ποντικιού.
  • Ανοίξτε και δημιουργήστε έγγραφα σε νέες καρτέλες του ίδιου παραθύρου, αντί σε νέα παράθυρα.
  • Βοηθήστε να εργάζεστε πιο γρήγορα και να ξεχωρίζετε εύκολα από το πλήθος! Ένα δευτερόλεπτο για να μεταβείτε ανάμεσα σε δεκάδες ανοιχτά έγγραφα!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    D Pritchard · 6 months ago
    Hi,


    this doesn't actually work


    It still exports the entire sheet even when a range is selected.


    Please fix it
  • To post as a guest, your comment is unpublished.
    Bill James · 1 years ago
    Thank you for this macro, it is very helpful.

    Do you know why on some existing large sheets I get extra rows appended? I am selecting the header row cells along with a few data row cells which might be 1000's of rows down in the sheet. These appended rows show up in the output .csv file with a comma for each column in the source selection. If I manually create a small sheet such as your example this does not happen.