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

Πώς να συνδυάσετε / εισαγάγετε πολλά αρχεία csv σε πολλά φύλλα εργασίας;

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

Εισαγάγετε πολλά αρχεία csv σε ξεχωριστά φύλλα εργασίας με κώδικα VBA

Εισαγάγετε πολλά αρχεία csv σε ξεχωριστά φύλλα εργασίας με το Kutools για Excel

Διαχωρίστε ένα βιβλίο εργασίας σε πολλά ξεχωριστά αρχεία csv / pdf / txt / excel


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

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

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

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

Sub CombineCsvFiles()
'updateby Extendoffice
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

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

doc εισαγωγή csv στο φύλλο εργασίας 1

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

5. Τέλος, μπορείτε να αποθηκεύσετε το νέο βιβλίο εργασίας όπως χρειάζεστε.


Εάν έχετε Kutools για Excel, με το ισχυρό του εργαλείο-Συνδυασμός, μπορείτε να συνδυάσετε γρήγορα ή να εισαγάγετε πολλά αρχεία csv σε ένα μόνο φύλλο εργασίας ή σε πολλά ξεχωριστά φύλλα εργασίας όπως χρειάζεστε.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Παρακαλώ πατήστε Kutools Plus > Συνδυασμός, δείτε το στιγμιότυπο οθόνης:

2. Στο Συνδυάστε φύλλα εργασίας πλαίσιο διαλόγου, επιλέξτε Συνδυάστε πολλά φύλλα εργασίας από βιβλία εργασίας σε ένα βιβλίο εργασίας, δείτε το στιγμιότυπο οθόνης:

doc εισαγωγή csv στο φύλλο εργασίας 6

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

doc εισαγωγή csv στο φύλλο εργασίας 7

4. Στο αναδυόμενο Ανοικτό διαλόγου, επιλέξτε (* .csv) από την αναπτυσσόμενη λίστα και, στη συνέχεια, καθορίστε τα αρχεία csv που θέλετε να συγχωνεύσετε.

doc εισαγωγή csv στο φύλλο εργασίας 8

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

doc εισαγωγή csv στο φύλλο εργασίας 9

6. Στην Βήμα 3, κάντε τις ακόλουθες ενέργειες:

(1.) Έλεγχος Πρώτη σειρά κάθε φύλλου εργασίας (σχόλια) από το Εισαγωγή πληροφοριών φύλλου εργασίας ενότητα, όλες οι πληροφορίες αρχείων csv θα εισαχθούν στα συνδυασμένα φύλλα ως σχόλια.

(2.) Μπορείτε να μετονομάσετε τα αρχεία csv όπως χρειάζεστε.

(3.) μπορείτε να παραλείψετε τα κενά αρχεία csv όταν συναντάτε ένα κενό αρχείο csv.

doc εισαγωγή csv στο φύλλο εργασίας 10

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

doc εισαγωγή csv στο φύλλο εργασίας 11

8. Στη συνέχεια κάντε κλικ στο κουμπί Αποθήκευση κουμπί, στο αναδυόμενο πλαίσιο προώθησης, μπορείτε να ανοίξετε το νέο κλικ στο αρχείο Ναικαι κλείστε το κάνοντας κλικ Οχι, δείτε το στιγμιότυπο οθόνης:

doc εισαγωγή csv στο φύλλο εργασίας 12

9. Και τότε μπορείτε να αποθηκεύσετε αυτό το σενάριο ή όχι όπως θέλετε. Δείτε το στιγμιότυπο οθόνης:

doc εισαγωγή csv στο φύλλο εργασίας 13

10. Επιτέλους, τα επιλεγμένα αρχεία csv έχουν εισαχθεί σε ένα νέο βιβλίο εργασίας με ξεχωριστό φύλλο εργασίας, δείτε το στιγμιότυπο οθόνης:

doc εισαγωγή csv στο φύλλο εργασίας 14

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


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

Σε συγκεκριμένη περίπτωση, μπορεί να θέλετε να χωρίσετε ένα βιβλίο εργασίας σε ξεχωριστά αρχεία csv, το βοηθητικό πρόγραμμα Kutools for Excel's Split Workbook μπορεί να ολοκληρώσει αυτήν την εργασία γρήγορα και εύκολα.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Κλίκ Kutools Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας, δείτε το στιγμιότυπο οθόνης:

2. Στο Διαχωρισμός βιβλίου εργασίας κουτί διαλόγου:

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

(2.) Και ελέγξτε Καθορίστε αποθήκευσημορφήκαι, στη συνέχεια, επιλέξτε τη μορφή αρχείου που θέλετε να αποθηκεύσετε.

(3.) Στη συνέχεια κάντε κλικ Σπλιτ και καθορίστε ένα φάκελο για να βάλετε τα διαχωρισμένα αρχεία.

doc εισαγωγή csv στο φύλλο εργασίας 3

3. Και στη συνέχεια κάντε κλικ στο κουμπί OK για να αρχίσετε να χωρίζετε, το βιβλίο εργασίας θα χωριστεί σε ξεχωριστά αρχεία csv που χρειάζεστε.

doc εισαγωγή csv στο φύλλο εργασίας 4

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


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

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi!
I've been using this code to combine evaluation forms into one excel sheet. However, it reads the dates in the US format of MM/DD/YYYY instead of the European format which I use, which is DD/MM/YYYY. The results is a column that looks like this:

11-4-2021 17:13
22/10/2021 09:41:32 (This is october 22nd, but it's not recognized)
7-12-2022 14:55 (This is mistakenly read as December 7th, when it should be July 12th.)
27/10/2021 16:53:19
29/10/2021 09:44:26
11-1-2021 11:36
11-2-2021 14:11
17/08/2022 16:46:06
11-1-2021 10:49
8-10-2022 12:19
22/10/2021 14:54:58
17/11/2021 13:48:54
26/10/2021 20:13:37
22/10/2021 16:26:13

How can I prevent this from happening? I saw a comment on another post that suggested putting 'Local=True' somewhere, but I've not been able to figure out where to put that so that the CSV files load correctly. Any help is appreciated!
This comment was minimized by the moderator on the site
Hello this vba macro is great, but i want it to be launched by a button click on another workbook, how can i do that ?
This comment was minimized by the moderator on the site
Thank you. The code works well
This comment was minimized by the moderator on the site
Thank you . Very handy
This comment was minimized by the moderator on the site
Thank you! The code was very useful
This comment was minimized by the moderator on the site
Thank you for sharing this code. It is exactly what I was looking for. Sadly it is not working as well as I hoped it would. I am receiving an error message every time the code is run. ERROR: "The name is already taken. Try a different one." Notes: - I am trying to combine four csv files - All of the csv files have the same name "file_name.csv, file_name(1).csv, etc..." The code combines the first two csv files into one workbook and the the third file into its own workbook. The fourth file never had a chance because of the error. If anyone has some thoughts as how to go about fixing this issue I would greatly appreciate your feedback. Thank you all in advanced for you time. Best regards, Andrew
This comment was minimized by the moderator on the site
Thank you for the code on combining files. I however want to have the multiple files in the workbook I am currently working with, not for the code to create a new workbook. How do I go about achieving that?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations