Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [VBA] Έλεγχος και αντιγραφή δεδομένων απο πολλά αρχεια excel σε ένα

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 20-06-19, 08:05
Όνομα: Ακης
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 18-06-2019
Μηνύματα: 2
Προεπιλογή Έλεγχος και αντιγραφή δεδομένων απο πολλά αρχεια excel σε ένα

Καλημέρα στην ομάδα και από εμένα,

Αν είναι εύκολο θα χρειαστώ τη βοήθεια σας και συγκεκριμένα, έχω μέσα σε ένα φάκελο περί τα 28500 αρχεία excel (όλα σε πανομοιότυπο φορματ) και η ονοματοδοσία των αρχείων είναι σειριακά ξεκινώντας από το 400001 έως και το ~428500 (βέβαια θεωρώ ως δεδομένο ότι υπάρχουν αρχεία excel τα οποία θα λείπουν ανάμεσα σε αυτά τα 28500).

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

Επειδή σας μπέρδεψα μάλλον, σας παραθέτω μερικά αρχεία για να έχετε και εικόνα αλλα και το final.xls όπως περίπου θα βόλευε.

Ευχαριστώ προκαταβολικά για το χρόνο σας και τη βοήθεια σας.

Να έχουμε μια καλή και όμορφη μέρα παίδες
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm 400001.xlsm (22,4 KB, 13 εμφανίσεις)
Τύπος Αρχείου: xlsm 400002.xlsm (20,1 KB, 8 εμφανίσεις)
Τύπος Αρχείου: xlsm 400003.xlsm (20,1 KB, 6 εμφανίσεις)
Τύπος Αρχείου: xlsx Final.XLSX (254,8 KB, 5 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 20-06-19, 11:57
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.992
Προεπιλογή

Καλημέρα

Άκη, δες μια λύση στο συνημμένο.

1) Βάλε το συνημμένο στο φάκελο με τα αρχεία

2) Άνοιξέ το και πάτησε το κουμπί «Αντιγραφή».

Ο κώδικας θα ανοιγοκλείσει όλα τα σχετικά αρχεία 400001,…, 428500 και θα αντιγράψει τα στοιχεία τους.

Η παραπάνω εργασία, για 28500 αρχεία, εκτιμώ ότι θα απαιτήσει αρκετό χρόνο (μπορεί και 16 ώρες).

Θα πρότεινα συνεπώς να κάνεις πρώτα μια δοκιμή με λιγότερα αρχεία (πχ 30) για να εκτιμήσεις περίπου τον απαιτούμενο χρόνο.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Final.xlsm (357,1 KB, 15 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 20-06-19, 19:44
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.992
Προεπιλογή

Μετά την subExit:

Στην εντολή: Application.ScreenUpdating = False

να αντικατασταθεί το False με το True.

Και χωρίς την αντικατάσταση ο κώδικας λειτουργεί σωστά.

Καλό είναι όμως να κάνουμε τη διόρθωση, για συμμόρφωση

με τους κανόνες σωστού προγραμματισμού.
Απάντηση με παράθεση
  #4  
Παλιά 21-06-19, 07:15
Όνομα: Ακης
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 18-06-2019
Μηνύματα: 2
Προεπιλογή

Καλημέρα καλημέρα στην παρέα,

Σε ευχαριστώ πολύ για το χρόνο σου και την γρήγορη απόκρισή σου.
Μόλις το έτρεξα σε 300 αρχεία με επιτυχία και ετοιμάζομαι να το τρέξω σε όλα τα αρχεία :)

Ειλικρινά και πάλι σε ευχαριστώ Γιώργο μου
Απάντηση με παράθεση
  #5  
Παλιά 21-06-19, 07:31
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.992
Προεπιλογή

Να είσαι καλά Ακη και καλή συνέχεια.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Excel07] Αντιγραφή δεδομένων απο πολλά φύλλα. bill72 Excel - Ερωτήσεις / Απαντήσεις 6 08-10-18 19:40
Τρέξιμο μακροεντολής σε φάκελο με πολλά αρχεία word valkis Word - Ερωτήσεις / Απαντήσεις 1 12-11-17 19:16
[Γενικά] ΔΙΑΣΠΑΣΗ ΔΕΔΟΜΕΝΩΝ ΣΕ ΑΡΧΕΙΑ EXCEL gaz_manos Excel - Ερωτήσεις / Απαντήσεις 5 21-01-15 15:32
[Γενικά] Μεταφορά δεδομένων από 3 αρχεία xristos Excel - Ερωτήσεις / Απαντήσεις 4 26-04-14 16:40
[VBA] Έλεγχος ονόματος ενός φύλλου σε 850 αρχεία Excel! Charis Excel - Ερωτήσεις / Απαντήσεις 2 18-08-10 18:53


Η ώρα είναι 11:44.