[VBA] Έλεγχος και αντιγραφή δεδομένων απο πολλά αρχεια excel σε ένα

[spartakos81]

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

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

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

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

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

Να έχουμε μια καλή και όμορφη μέρα παίδες

[kapetang]

Καλημέρα

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

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

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

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

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

Θα πρότεινα συνεπώς να κάνεις πρώτα μια δοκιμή με λιγότερα αρχεία (πχ 30) για να εκτιμήσεις περίπου τον απαιτούμενο χρόνο.

[kapetang]

Μετά την subExit:

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

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

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

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

με τους κανόνες σωστού προγραμματισμού.

[spartakos81]

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

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

Ειλικρινά και πάλι σε ευχαριστώ Γιώργο μου

[kapetang]

Να είσαι καλά Ακη και καλή συνέχεια.