Πίνακας περιεχομένων
Ο ακόλουθος κώδικας θα επικυρώσει εάν ένα όνομα αρχείου είναι έγκυρο. Αυτό είναι χρήσιμο εάν ο κωδικός σας απαιτεί όνομα αρχείου που έχει εισαχθεί από τον χρήστη. Θα επαληθεύσει ότι το όνομα αρχείου είναι έγκυρο πριν προχωρήσετε και ενδεχομένως δημιουργήσετε σφάλμα.
Επικύρωση ονόματος αρχείου
Αυτή η συνάρτηση ελέγχει ότι η μεταβλητή "FileName" είναι έγκυρο όνομα αρχείου:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Λειτουργία ValidateFileName (Όνομα αρχείου ByVal ως συμβολοσειρά) Ως BooleanApplication.ScreenUpdating = ΛάθοςDim wb Ως βιβλίο εργασίας«Ελέγξτε για τίποτα στο όνομα αρχείου.Αν FileName = "" ΤότεValidateFileName = ΛάθοςGoTo ExitProcΤέλος εαν«Δημιουργία αρχείου TempΣφάλμα GoTo InvalidName:Ρύθμιση wb = Τετράδια εργασίας. Προσθήκηwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Στο Σφάλμα Συνέχιση Επόμενο'Κλείσιμο αρχείου Temp Excelwb. Κλείσιμο Λάθος'Διαγραφή αρχείου Temp ExcelKill Environ ("temp") & "\" & FileName & ".xlsx"'Όνομα αρχείου επικυρωμένο - Συνάρτηση εξόδουValidateFileName = TrueGoTo ExitProc"Εάν δεν είναι δυνατή η δημιουργία αρχείουΜη έγκυρο όνομα:Στο Σφάλμα Συνέχιση ΕπόμενοΚλείσιμο αρχείου Excel Tempwb. Κλείσιμο Λάθος«Το όνομα αρχείου δεν είναι επικυρωμένο - Συνάρτηση εξόδουValidateFileName = ΛάθοςExitProc:Application.ScreenUpdating = ΛάθοςΛειτουργία Τέλους |
Μπορείτε να καλέσετε τη συνάρτηση ως εξής:
| 12345 | Sub test_ValidateFileName ()Debug.Print ValidateFileName ("fda?/")Τέλος υπο |
Αυτή η διαδικασία δοκιμής θα εξάγει TRUE ή FALSE στο άμεσο παράθυρο.
