Lang L: none (table-of-contents)
Järgmine kood kontrollib, kas failinimi on kehtiv. See on kasulik, kui teie kood nõuab kasutaja poolt sisestatud failinime. See kontrollib enne jätkamist ja võib -olla ka vea tekitamist, kas failinimi on kehtiv.
Kinnitage failinimi
See funktsioon testib, et muutuja „FileName” on kehtiv failinimi:
1234567891011121314151617181920212223242526272829303132333435363738394041 | Funktsioon ValidateFileName (ByVal FileName As String) kui BooleanApplication.ScreenUpdating = ValeDim wb Töövihikuna„Kontrollige, kas failinimes pole midagi.Kui FileName = "" SiisValidateFileName = ValeGoTo ExitProcLõpp Kui"Loo ajutine failViga GoTo InvalidName:Määra wb = Töövihikud. Lisawb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Vea korral Jätka järgmist"Sulgege temp Exceli failwb. Sulge valeKustuta temp Exceli failKill Environ ("temp") & "\" & FileName & ".xlsx"'Faili nimi on kinnitatud - väljumisfunktsioonValidateFileName = TõsiGoTo ExitProc'Kui faili ei saa luuaKehtetu nimi:Vea korral Jätka järgmist„Sulgege Exceli ajutine failwb. Sulge vale'Faili nimi pole kinnitatud - väljumisfunktsioonValidateFileName = ValeExitProc:Application.ScreenUpdating = ValeLõppfunktsioon |
Funktsiooni saate helistada järgmiselt:
12345 | Alam test_ValidateFileName ()Silumine. Prindi ValidateFileName ("fda?/")End Sub |
See testprotseduur väljastab vahetule aknale tõese või vale.