Πώς να προγραμματίσετε μια Περιήγηση κουμπιού στο Excel VBA για να πάρει ένα όνομα φακέλου

Η μέθοδος BrowseForFolder μπορεί να κάνει εφαρμογή του Microsoft Office Excel σας πιο δυναμική με το να μην μπορείτε να απαιτούν σκληρά μονοπάτια κώδικα στο πρόγραμμά σας . Η μέθοδος BrowseForFolder σας επιτρέπει να ζητήσει από το χρήστη για να αναζητήσετε ένα συγκεκριμένο φάκελο στον υπολογιστή σας, χρησιμοποιώντας το Visual Basic for Applications ( VBA ) . Η διαδρομή του φακέλου επέστρεψε μπορούν να χρησιμοποιηθούν για άλλους σκοπούς προγραμματισμού, όπως η ανάγνωση ή την αποθήκευση ενός αρχείου . Μειώστε συντηρησιμότητα δεν χρειάζεται να σκληρά κωδικό οποιεσδήποτε οδούς στο πρόγραμμά σας . Οδηγίες
Η 1

Εκκίνηση του Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής ", ακολουθούμενο από το " Visual Basic ". Κάντε κλικ στο "Εισαγωγή" μενού και επιλέξτε " UserForm " για να εισάγετε μια νέα φόρμα . Κάντε κλικ στο μενού "Προβολή" και κάντε κλικ στο " Toolbox" για να δείτε τα στοιχεία ελέγχου που μπορείτε να προσθέσετε στη φόρμα σας . 2

Κάντε κλικ στο " CommandButton " στην Εργαλειοθήκη και κάντε κλικ στη συνέχεια, σύρετε στη φόρμα σας για να δημιουργήσετε κουμπί ελέγχου . Προσθέστε ένα νέο στοιχείο ελέγχου πλαισίου κειμένου, χρησιμοποιώντας την ίδια τεχνική .
Εικόνων 3

Κάντε διπλό κλικ στο νέο κουμπί για να ανοίξει το Visual Basic Editor παράθυρο . Πληκτρολογήστε τον ακόλουθο κώδικα κάτω από το " Private Sub CommandButton1_Click ( ) : "

On Error GoTo Err_CommandButton1_Click :
Η

4 Πληκτρολογήστε τον ακόλουθο κώδικα για να ορίσετε δύο μεταβλητές που θα χρησιμοποιήσετε στο πρόγραμμά σας :

Dim pathSelected Όπως String Dim

ShellApp As Object
5

Πληκτρολογήστε τον ακόλουθο κώδικα για να ξεκινήσει τη μέθοδο " BrowseForFolder " και να εμφανιστεί ένα παράθυρο διαλόγου για να διαλέξει ο χρήστης ένας φάκελος :

Set ShellApp = CreateObject ( " Shell.Application " ) . _

BrowseForFolder ( 0 , " Επιλέξτε ένα φάκελο " , 0 , OpenAt )
Η 6

Πληκτρολογήστε το παρακάτω, για να πάρει το φάκελο που έχει επιλεγεί στο " BrowseForFolder " παράθυρο διαλόγου :

pathSelected = ShellApp.self.Path
Η 7

Πληκτρολογήστε τα παρακάτω για να προσθέσετε τη διαδρομή που επιλέγεται στο στοιχείο ελέγχου πλαισίου κειμένου στη φόρμα σας :

Me.TextBox1.Text = pathSelected
8

Πληκτρολογήστε τα ακόλουθα για να απελευθερώσει το αντικείμενο από τη μνήμη :

Set ShellApp = Τίποτα

9

Πληκτρολογήστε το παρακάτω, για να εμφανιστεί ένα πλαίσιο μηνύματος με οποιονδήποτε πιθανά λάθη και στο τέλος της διαδικασίας :

Exit_CommandButton1_Click :

Exit Sub

Err_CommandButton1_Click :

MsgBox Err.Description

Συνέχιση Exit_CommandButton1_Click :

End Sub
Η 10

Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας , στη συνέχεια, κάντε κλικ στο κουμπί " CommandButton1 " για να αναζητήσετε ένα φάκελο . Επιλέξτε ένα φάκελο και κάντε κλικ στο "OK". Η διαδρομή θα πρέπει να εμφανίζεται στο στοιχείο ελέγχου πλαισίου κειμένου .
Η
εικόνων