Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι εισάγει φύλλα από άλλα αρχεία Excel σε ένα αρχείο Excel.
Κατεβάστε το Book4.xlsx, Book5.xlsx και προσθέστε τα στο "C: \ test \"
Κατάσταση:
Προσθέστε τις ακόλουθες γραμμές κώδικα στο κουμπί εντολών:
1. Αρχικά, δηλώνουμε δύο μεταβλητές τύπου String, ένα αντικείμενο φύλλου εργασίας και μία μεταβλητή τύπου Integer.
Dim κατάλογος ως συμβολοσειρά, όνομα αρχείου ως συμβολοσειρά, φύλλο ως φύλλο εργασίας, σύνολο ως ακέραιος
2. Απενεργοποιήστε την ενημέρωση οθόνης και την εμφάνιση ειδοποιήσεων.
Application.ScreenUpdating = Λάθος
Application.DisplayAlerts = Λάθος
3. Αρχικοποιήστε τον κατάλογο μεταβλητών. Χρησιμοποιούμε τη συνάρτηση Dir για να βρούμε το πρώτο *.xl ?? αρχείο αποθηκευμένο σε αυτόν τον κατάλογο.
κατάλογος = "c: \ test \"
fileName = Dir (κατάλογος & "*.xl ??")
Σημείωση: Η συνάρτηση Dir υποστηρίζει τη χρήση μπαλαντέρ πολλαπλών χαρακτήρων (*) και ενός χαρακτήρα (?) Για αναζήτηση όλων των διαφορετικών τύπων αρχείων Excel.
4. Η μεταβλητή fileName έχει τώρα το όνομα του πρώτου αρχείου Excel που βρίσκεται στον κατάλογο. Προσθέστε ένα βρόχο Do while.
Do while fileName ""
Βρόχος
Προσθέστε τις ακόλουθες γραμμές κώδικα (στο 5, 6, 7 και 8) στον βρόχο.
5. Δεν υπάρχει απλός τρόπος αντιγραφής φύλλων εργασίας από κλειστά αρχεία Excel. Επομένως ανοίγουμε το αρχείο Excel.
Τετράδια εργασίας. Άνοιγμα (κατάλογος & όνομα αρχείου)
6. Εισαγάγετε τα φύλλα από το αρχείο Excel στο import-sheet.xlsm.
Για κάθε φύλλο σε βιβλία εργασίας (όνομα αρχείου). Φύλλα εργασίας
σύνολο = Βιβλία εργασίας ("import-sheets.xlsm"). Φύλλα εργασίας.αριθμός
Βιβλία εργασίας (Όνομα αρχείου). Φύλλα εργασίας (Όνομα φύλλου). Αντιγραφή _
μετά: = Τετράδια εργασίας ("import-sheets.xlsm"). Φύλλα εργασίας (σύνολο)
Επόμενο φύλλο
Επεξήγηση: η μεταβλητή συνολική παρακολουθεί τον συνολικό αριθμό φύλλων εργασίας του import-sheet.xlsm. Χρησιμοποιούμε τη μέθοδο Αντιγραφή του αντικειμένου φύλλου εργασίας για να αντιγράψουμε κάθε φύλλο εργασίας και να το επικολλήσουμε μετά το τελευταίο φύλλο εργασίας των φύλλων εισαγωγής.xlsm.
7. Κλείστε το αρχείο Excel.
Τετράδια εργασίας (Όνομα αρχείου). Κλείσιμο
8. Η συνάρτηση Dir είναι μια ειδική συνάρτηση. Για να λάβετε τα άλλα αρχεία Excel, μπορείτε να χρησιμοποιήσετε ξανά τη λειτουργία Dir χωρίς ορίσματα.
όνομα αρχείου = Dir ()
Σημείωση: Όταν δεν ταιριάζουν άλλα ονόματα αρχείων, η συνάρτηση Dir επιστρέφει μια συμβολοσειρά μηδενικού μήκους (""). Ως αποτέλεσμα, το Excel VBA θα εγκαταλείψει τον βρόχο Do while.
9. Ενεργοποιήστε την ενημέρωση της οθόνης και την εμφάνιση ξανά ειδοποιήσεων (εκτός του βρόχου).
Application.ScreenUpdating = True
Application.DisplayAlerts = True
10. Δοκιμάστε το πρόγραμμα.
Αποτέλεσμα:
