Indholdsfortegnelse
Følgende kode vil validere, om et filnavn er gyldigt. Dette er nyttigt, hvis din kode kræver et brugerindtastet filnavn. Det kontrollerer, at filnavnet er gyldigt, før du fortsætter og muligvis genererer en fejl.
Valider filnavn
Denne funktion tester, at variablen 'Filnavn' er et gyldigt filnavn:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Funktion ValidateFileName (ByVal FileName As String) Som boolskApplication.ScreenUpdating = FalskDim wb Som projektmappe'Kontroller intet i filnavnet.Hvis FileName = "" SåValidateFileName = FalskGoTo ExitProcAfslut Hvis'Opret Temp -filVed fejl GoTo InvalidName:Indstil wb = Workbooks.Addwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Ved fejl Genoptag næste'Luk Temp Excel -filwb.Luk Falsk'Slet Temp Excel -filDræb miljø ("temp") & "\" & filnavn & ".xlsx"'Filnavn valideret - Afslut funktionValidateFileName = TrueGoTo ExitProc'Hvis filen ikke kan oprettesUgyldigt navn:Ved fejl Genoptag næste'Luk Temp Excel -filwb.Luk Falsk'Filnavn ikke valideret - Afslut funktionValidateFileName = FalskExitProc:Application.ScreenUpdating = FalskAfslut funktion |
Du kan kalde funktionen sådan:
| 12345 | Sub test_ValidateFileName ()Debug.Print ValidateFileName ("fda?/")Afslut Sub |
Denne testprocedure udsender SAND eller FALSK til vinduet Umiddelbart.
