Πώς να χρησιμοποιήσετε τη μέθοδο GetOpenFilename στο Excel 2016 VBA - ανδρείκελα

Αν η διαδικασία VBA σας ζητάει από το χρήστη ένα όνομα αρχείου, μπορείτε να χρησιμοποιήσετε τη λειτουργία InputBox και αφήστε τον χρήστη του Excel να κάνει κάποια πληκτρολόγηση. Ένα κουτί εισόδου συνήθως δεν είναι το καλύτερο εργαλείο για αυτή την εργασία, ωστόσο, επειδή οι περισσότεροι χρήστες δυσκολεύονται να θυμηθούν μονοπάτια, πλάτες, ονόματα αρχείων και επεκτάσεις αρχείων. Με άλλα λόγια, είναι πάρα πολύ εύκολο να βιδώσετε όταν πληκτρολογείτε ένα όνομα αρχείου. Για καλύτερη επίλυση αυτού του προβλήματος, χρησιμοποιήστε τη μέθοδο GetOpenFilename του αντικειμένου της εφαρμογής, η οποία εξασφαλίζει ότι ο κώδικας σας θα πάρει τα χέρια του με ένα έγκυρο όνομα αρχείου, συμπεριλαμβανομένης της πλήρους διαδρομής του. Η μέθοδος GetOpenFilename εμφανίζει το οικείο παράθυρο διαλόγου Άνοιγμα (ένας νεκρός ήχος κλήσης για το πλαίσιο διαλόγου Excel εμφανίζεται όταν επιλέγετε Αρχείο → Άνοιγμα → Αναζήτηση).

Η μέθοδος GetOpenFilename δεν ανοίγει το συγκεκριμένο αρχείο. Αυτή η μέθοδος απλά επιστρέφει το όνομα αρχείου που έχει επιλεγεί από το χρήστη ως συμβολοσειρά. Στη συνέχεια, μπορείτε να γράψετε κώδικα για να κάνετε ό, τι θέλετε με το όνομα αρχείου.

Η σύνταξη για τη μέθοδο GetOpenFilename

Η επίσημη σύνταξη της μεθόδου GetOpenFilename έχει ως εξής:

αντικείμενο. Το όνομα GetOpenFilename ([fileFilter], [filterIndex], [title], [buttonText], [multiSelect])

Η μέθοδος GetOpenFilename λαμβάνει τα παρακάτω προαιρετικά επιχειρήματα.

Argument

Τι κάνει	FileFilter
Καθορίζει τους τύπους αρχείων που εμφανίζονται στο παράθυρο διαλόγου	(για παράδειγμα *.TXT). Μπορείτε να ορίσετε διάφορα φίλτρα για τον χρήστη για να επιλέξετε. FilterIndex
Προσδιορίζει ποια από τα φίλτρα αρχείων εμφανίζει το παράθυρο διαλόγου με	προεπιλογή. Τίτλος
Καθορίζει τη λεζάντα για τη γραμμή τίτλου	του πλαισίου διαλόγου. ButtonText
Ignored (χρησιμοποιείται μόνο για την έκδοση Macintosh του Excel).	MultiSelect
Αν είναι αληθές, ο χρήστης μπορεί να επιλέξει πολλά αρχεία.

Ένα παράδειγμα GetOpenFilename

Το όρισμα fileFilter καθορίζει τι εμφανίζεται στην αναπτυσσόμενη λίστα Files of Type (Τύποι αρχείων). Αυτό το όρισμα αποτελείται από ζεύγη φίλτρων φίλτρων ακολουθούμενα από την προδιαγραφή φίλτρου μπαλαντέρ, με κόμματα που χωρίζουν κάθε τμήμα και ζεύγος. Αν παραλειφθεί, αυτό το όρισμα έχει ως προεπιλογή τα εξής:

Όλα τα αρχεία (*. *), *. *

Παρατηρήστε ότι αυτή η συμβολοσειρά αποτελείται από δύο μέρη, διαχωρισμένα με κόμμα:

Όλα τα αρχεία (*. *)

και

*. *

Το πρώτο μέρος αυτής της συμβολοσειράς είναι το κείμενο που εμφανίζεται στην αναπτυσσόμενη λίστα Αρχεία τύπου. Το δεύτερο μέρος καθορίζει τα αρχεία που εμφανίζει το παράθυρο διαλόγου. Για παράδειγμα, *. * σημαίνει

όλα τα αρχεία. Ο κώδικας στο ακόλουθο παράδειγμα ανοίγει ένα παράθυρο διαλόγου που ζητά από το χρήστη ένα όνομα αρχείου.Η διαδικασία ορίζει πέντε φίλτρα αρχείων. Παρατηρήστε ότι η ακολουθία συνεχούς γραμμής VBA χρησιμοποιείται για τη ρύθμιση της μεταβλητής Φίλτρο. αυτό βοηθά στην απλοποίηση αυτού του μάλλον περίπλοκου επιχειρήματος.

Sub GetImportFileName () Dim Finfo ως Dim String FilterIndex ως Τίτλος μακρού Dim ως String Dim Όνομα_αρχείου ως Παραλλαγή 'Ρύθμιση λίστας φίλτρων αρχείων FInfo = "Αρχεία κειμένου (*.txt), *. txt, "& _" αρχεία Lotus (*.prn), *. prn, "& _" Αρχεία διαχωρισμένα με κόμματα (*.csv), *. csv, "& _" αρχεία ASCII (*. asc), *. asc, "& _" Όλα τα αρχεία (*. *), *. *" ' Απεικόνιση *. * από προεπιλογή FilterIndex = 5 'Ρύθμιση της περίληψης πλαισίου διαλόγου Title = "Επιλογή ενός αρχείου για εισαγωγή"' Λήψη ονόματος αρχείου FileName = Εφαρμογή. GetOpenFilename (FInfo, _ FilterIndex, Title) 'Πληροφορίες χειρισμού επιστροφής από το παράθυρο διαλόγου If FileName = False Στη συνέχεια MsgBox "Δεν επιλέχθηκε αρχείο. "Else MsgBox" Έχετε επιλέξει "& FileName End If End Sub

Εδώ εμφανίζεται το παράθυρο διαλόγου Excel που εμφανίζεται όταν εκτελέσετε αυτή τη διαδικασία. Η εμφάνιση μπορεί να διαφέρει ανάλογα με την έκδοση των Windows που χρησιμοποιείτε και τις επιλογές οθόνης που έχετε ορίσει.

Η μέθοδος GetOpen Filename εμφανίζει ένα προσαρμόσιμο παράθυρο διαλόγου και επιστρέφει τη διαδρομή και το όνομα του επιλεγμένου αρχείου. Δεν ανοίγει το αρχείο.

Σε μια πραγματική εφαρμογή, θα κάνατε κάτι πιο σημαντικό με το όνομα αρχείου. Για παράδειγμα, μπορεί να θέλετε να το ανοίξετε χρησιμοποιώντας μια δήλωση όπως αυτή:

Βιβλία εργασίας. Ανοίξτε το όνομα_αρχείου

Παρατηρήστε ότι η μεταβλητή FileName δηλώνεται ως τύπος δεδομένων Variant. Αν ο χρήστης κάνει κλικ στην επιλογή "Ακύρωση", αυτή η μεταβλητή περιέχει μια τιμή Boolean (False). Διαφορετικά, το FileName είναι μια συμβολοσειρά. Επομένως, χρησιμοποιώντας έναν τύπο δεδομένων Variant χειρίζονται και τις δύο δυνατότητες.