Excel VBA Chdir
Το "ChDir" μπορεί να χαρακτηριστεί ως " Αλλαγή καταλόγου". Χρησιμοποιώντας το "ChDir", μπορούμε να αλλάξουμε τον τρέχοντα προεπιλεγμένο κατάλογο που χρησιμοποιείται στο VBA κατά την αναζήτηση των αρχείων χωρίς μια πλήρως κατάλληλη διαδρομή. Για παράδειγμα, όταν προσπαθούμε να αποθηκεύσουμε το αρχείο ως νέο αρχείο από προεπιλογή, θα μπορούσαμε να δούμε να ανοίγει η μονάδα δίσκου με διαμόρφωση συστήματος και από εκεί, επιλέγουμε το φάκελο που θέλουμε να αποθηκεύσουμε.
Έχετε σκεφτεί ποτέ ότι μπορούμε να αλλάξουμε αυτό το προεπιλεγμένο παράθυρο επιλογής φακέλων στην επιθυμία μας; Ναι, μπορούμε να το κάνουμε αυτό!
Τώρα ας δούμε τη σύνταξη της συνάρτησης ChDir στο VBA.
Διαδρομή: Εδώ πρέπει να αναφέρουμε τη διαδρομή φακέλου που επιθυμούμε να ανοίξουμε από προεπιλογή όταν προσπαθούμε να ανοίξουμε ή να αποθηκεύσουμε ως αρχείο σε διαφορετικό όνομα.
Η διαδρομή πρέπει να αναφέρεται σε διπλά εισαγωγικά.
Παραδείγματα της λειτουργίας ChDir στο VBA
Ακολουθούν τα παραδείγματα του Excel VBA ChDir.
Παράδειγμα # 1
Τώρα ρίξτε μια ματιά στον παρακάτω κώδικα VBA πρώτα.
Κώδικας:
Sub ChDir_Example1 () Dim FD As FileDialog Dim ND As String Set FD = Application.FileDialog (msoFileDialogFilePicker) With FD .Title = "Select your File" .AllowMultiSelect = False .Show End with End Sub
Όταν εκτελώ αυτόν τον κωδικό χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα τότε, θα ανοίξει πρώτα το παρακάτω προεπιλεγμένο παράθυρο.
Από εδώ και πέρα, πρέπει να περάσω από διάφορους φακέλους και υποφακέλους για να επιλέξω τα αρχεία που θέλω να ανοίξω χρησιμοποιώντας τον κώδικα VBA.
Αυτό θα πάρει πολύ χρόνο! Εάν πρέπει να περάσω από διάφορους φακέλους, τότε μπορεί επίσης να οδηγήσει σε λανθασμένη επιλογή αρχείων λόγω διαφόρων υποφακέλων και προσθέτει περισσότερη σύγχυση.
Τι γίνεται αν ο κώδικας μου μπορεί να ανοίξει τον συγκεκριμένο φάκελο στον οποίο απαιτείται η επιλογή του αρχείου μου ;;
Δεν είναι μια ωραία επιλογή να έχεις;
Ναι, ας το δοκιμάσουμε.
Πριν μεταβιβάσουμε τον κωδικό μας, πρέπει να χρησιμοποιήσουμε τη συνάρτηση ChDir και να αναφέρουμε τη διαδρομή του φακέλου σε διπλά εισαγωγικά.
ChDir "D: Άρθρα Αρχεία Excel"
Ο παραπάνω κώδικας, από προεπιλογή, θα αλλάξει τον κατάλογο που θα ανοίξει σε μονάδα δίσκου "D" και κάτω από το φάκελο "Άρθρα" της μονάδας D και σε αυτόν τον φάκελο, ο φάκελος που θα ανοίξει είναι "Αρχεία Excel".
Κώδικας:
Sub ChDir_Example2 () Dim Filename As Variant ChDir "D: Articles Excel Files" Filename = Application.GetSaveAsFilename () If TypeName (Filename) "Boolean" Στη συνέχεια, MsgBox Όνομα αρχείου Τέλος αν τελειώσει Sub
Τώρα θα τρέξω τον κώδικα χειροκίνητα ή πατώντας το πλήκτρο F5 και θα δω τι ανοίγει ο κατάλογος αρχείων.
Όπως μπορούμε να δούμε στην παραπάνω εικόνα, έχω το προεπιλεγμένο παράθυρο σύμφωνα με τις προδιαγραφές μου.
Ακριβώς σε περίπτωση που η λειτουργία ChDir δεν εμφανίζει τον αναφερόμενο κατάλογο αρχείων, τότε πρέπει πρώτα να αλλάξετε το Drive και μετά να εφαρμόσετε τη λειτουργία ChDir .
Για να αλλάξουμε τη μονάδα δίσκου, πρέπει να χρησιμοποιήσουμε τη λειτουργία "ChDir" . Εφόσον θέλω πρώτα να ανοίξω το αρχείο στη μονάδα δίσκου "D" , πρέπει να αλλάξω τη μονάδα δίσκου σε "D."
ChDrive "Δ"
Ο παραπάνω κωδικός θα αλλάξει τη μονάδα δίσκου σε "E."
Κώδικας:
Υπο ChDir_Example2 () Dim Filename As Variant ChDrive "D" ChDir "D: Άρθρα Excel Files" Όνομα αρχείου = Application.GetSaveAsFilename () Εάν TypeName (Όνομα αρχείου) "Boolean" Στη συνέχεια, MsgBox Όνομα αρχείου Τέλος αν τελειώσει Sub
Έτσι, χρησιμοποιώντας τη συνάρτηση VBA " ChDir ", μπορούμε να αλλάξουμε τον προεπιλεγμένο κατάλογο αρχείων στην επιθυμία μας.
