Θέλετε να δώσετε στον εαυτό σας ή στους χρήστες σας έναν γρήγορο τρόπο αναζήτησης και ανοίγματος ενός αρχείου στο Excel; Αυτή η μακροεντολή χρησιμοποιεί μια απλή τεχνική που ανοίγει ένα φιλικό πλαίσιο διαλόγου, επιτρέποντάς σας να αναζητήσετε και να ανοίξετε το αρχείο Excel της επιλογής σας.
Πώς λειτουργεί η μακροεντολή
Αυτή η μακροεντολή ανοίγει το πλαίσιο διαλόγου που βλέπετε εδώ, επιτρέποντας στον χρήστη να αναζητήσει και να ανοίξει ένα αρχείο Excel.
Το παράθυρο διαλόγου Άνοιγμα ενεργοποιείται από τη μακροεντολή.
Δείτε πώς λειτουργεί αυτή η μακροεντολή:
Sub Macro1()
«Βήμα 1: Ορισμός μεταβλητής συμβολοσειράς
Dim FName As Variant
«Βήμα 2: Η μέθοδος GetOpenFilename ενεργοποιεί το πλαίσιο διαλόγου
FName = Application.GetOpenFilename( _
FileFilter:="Βιβλία εργασίας του Excel,*.xl*", _
Title:="Επιλέξτε ένα βιβλίο εργασίας για άνοιγμα", _
MultiSelect:=False)
'Βήμα 3: Εάν επιλέχθηκε ένα αρχείο, ανοίξτε το!
Αν FName <> False Τότε
Βιβλία εργασίας. Ανοίξτε το όνομα αρχείου:=FName
Τέλος εαν
End Sub
Στο Βήμα 1, η μακροεντολή δηλώνει μια μεταβλητή Variant που διατηρεί το όνομα αρχείου που επιλέγει ο χρήστης. FName είναι το όνομα της μεταβλητής σας.
Στο Βήμα 2, χρησιμοποιείτε τη μέθοδο GetOpenFilename για να καλέσετε ένα παράθυρο διαλόγου που σας επιτρέπει να περιηγηθείτε και να επιλέξετε το αρχείο που χρειάζεστε.
Η μέθοδος GetOpenFilename υποστηρίζει μερικές προσαρμόσιμες παραμέτρους. Η παράμετρος FileFilter σάς επιτρέπει να καθορίσετε τον τύπο του αρχείου που αναζητάτε. Η παράμετρος Τίτλος σάς επιτρέπει να αλλάξετε τον τίτλο που εμφανίζεται στο επάνω μέρος του πλαισίου διαλόγου. Η παράμετρος MultiSelect σάς επιτρέπει να περιορίσετε την επιλογή σε ένα αρχείο.
Εάν ο χρήστης επιλέξει ένα αρχείο από το παράθυρο διαλόγου, η μεταβλητή FName συμπληρώνεται με το επιλεγμένο όνομα αρχείου. Στο Βήμα 3, ελέγχετε για μια κενή μεταβλητή FName. Εάν η μεταβλητή δεν είναι κενή, χρησιμοποιείτε τη μέθοδο Open του αντικειμένου Workbooks για να ανοίξετε το αρχείο.
Πώς να χρησιμοποιήσετε τη μακροεντολή
Για να εφαρμόσετε αυτήν τη μακροεντολή, μπορείτε να την αντιγράψετε και να την επικολλήσετε σε μια τυπική λειτουργική μονάδα:
Ενεργοποιήστε το Visual Basic Editor πατώντας Alt+F11 στο πληκτρολόγιό σας.
Κάντε δεξί κλικ στο όνομα έργου/βιβλίου εργασίας στο παράθυρο του έργου.
Επιλέξτε Εισαγωγή→ Μονάδα.
Πληκτρολογήστε ή επικολλήστε τον κωδικό στη μονάδα που δημιουργήθηκε πρόσφατα.
(Προαιρετικό) Αντιστοιχίστε τη μακροεντολή σε ένα κουμπί.