Το VBA σάς επιτρέπει να αντιγράψετε ένα αρχείο, χρησιμοποιώντας το FileSystemObjectΤο Σε αυτό το σεμινάριο, θα μάθετε πώς να αντιγράφετε και να μετονομάζετε ένα συγκεκριμένο αρχείο.
Εάν θέλετε να μάθετε πώς να μετονομάσετε ένα αρχείο, μπορείτε να κάνετε κλικ σε αυτόν τον σύνδεσμο: VBA Rename File
Αντιγραφή αρχείου / βιβλίου εργασίας
Θα δείξουμε πώς να αντιγράψετε το υπάρχον αρχείο Δείγμα αρχείου 1.xlsx στο φάκελο Φάκελος VBAΤο Σε αυτό το παράδειγμα, δεν θα μετονομάσουμε το αρχείο, απλώς αντιγράψτε και αντικαταστήστε το. Ο φάκελος έχει προς το παρόν μόνο αυτό το ένα αρχείο:
Εικόνα 1. Αρχείο στο φάκελο C: \ VBA Folder
Εδώ είναι ο κωδικός:
| 12345 | Dim oFSO Ως αντικείμενοΟρισμός oFSO = CreateObject ("Scripting.FileSystemObject")Καλέστε oFSO.CopyFile ("C: \ VBA Folder \ Sample file 1.xlsx", "C: \ VBA Folder \", True) |
Πρέπει πρώτα να δημιουργήσετε το αντικείμενο της κλάσης Scripting.FileSystemObject:
| 1 | Ορισμός oFSO = CreateObject ("Scripting.FileSystemObject") |
Στη συνέχεια, μπορούμε να χρησιμοποιήσουμε τη μέθοδο Αντιγραφή αρχείου:
| 1 | Καλέστε oFSO.CopyFile ("C: \ VBA Folder \ Sample file 1.xlsx", "C: \ VBA Folder \", True) |
Η πρώτη παράμετρος της μεθόδου είναι η διαδρομή προέλευσης και η δεύτερη η διαδρομή προορισμού. Η τρίτη παράμετρος είναι ΑντικαταστήστεΤο Καθώς έχουμε τις ίδιες διαδρομές προέλευσης και προορισμού, πρέπει να ορίσουμε Αντικαταστήστε σε Σωστό ή Λάθος. Σε αυτό το παράδειγμα, βάζουμε True, πράγμα που σημαίνει ότι το αρχικό αρχείο αντικαθίσταται.
Ας δούμε τώρα τι θα συμβεί εάν έχουμε τους ίδιους προορισμούς, αλλά ορίσουμε το Overwrite σε False. Απλώς πρέπει να αλλάξετε αυτήν τη γραμμή του κώδικα:
| 1 | Καλέστε oFSO.CopyFile ("C: \ VBA Folder \ Sample file 1.xlsx", "C: \ VBA Folder \", True) |
Ως αποτέλεσμα, θα λάβετε ένα σφάλμα όπως μπορείτε να δείτε στην εικόνα 2:
Εικόνα 2. Σφάλμα κατά την αντιγραφή του αρχείου
Αντιγράψτε και μετονομάστε ένα αρχείο
Μια άλλη πιθανή επιλογή κατά την αντιγραφή ενός αρχείου είναι η μετονομασία του. Είναι παρόμοιο με την αντιγραφή ενός αρχείου, αλλά τώρα απλά πρέπει να ορίσετε τη διαδρομή προορισμού με διαφορετικό όνομα. Εδώ είναι ο κωδικός:
| 12345 | Dim oFSO Ως αντικείμενοΟρισμός oFSO = CreateObject ("Scripting.FileSystemObject")Καλέστε το oFSO.CopyFile ("C: \ VBA Folder \ Sample file 1.xlsx", "C: \ VBA Folder \ Sample file Copy.xlsx") |
Όπως μπορείτε να δείτε από την τελευταία γραμμή του κώδικα, θέλουμε να αντιγράψουμε το αρχείο Δείγμα αρχείου 1.xlsx στον ίδιο φάκελο και ονομάστε το Δείγμα αρχείου Copy.xlsx:
| 1 | Καλέστε oFSO.CopyFile ("C: \ VBA Folder \ Sample file 1.xlsx", "C: \ VBA Folder \ Sample file Copy.xlsx") |
Τώρα έχουμε δύο αρχεία στον φάκελο VBA. Το αποτέλεσμα του κώδικα είναι στην εικόνα 3:
Εικόνα 3. Αντιγράψτε και μετονομάστε το αρχείο
