Innholdsfortegnelse
Følgende kode vil validere om et filnavn er gyldig. Dette er nyttig hvis koden krever et brukernavn filnavn. Det vil bekrefte at filnavnet er gyldig før du fortsetter og muligens genererer en feil.
Valider filnavn
Denne funksjonen tester at variabelen ‘Filnavn’ er et gyldig filnavn:
1234567891011121314151617181920212223242526272829303132333435363738394041 | Funksjon ValidateFileName (ByVal FileName As String) As BooleanApplication.ScreenUpdating = FalskDim wb Som arbeidsbok'Søk etter ingenting i filnavnet.Hvis FileName = "" DaValidateFileName = FalseGoTo ExitProcSlutt om'Lag Temp -filVed feil GoTo InvalidName:Sett wb = Workbooks.Addwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Ved feil Fortsett neste'Lukk Temp Excel -filwb.Lukk Falsk'Slett Temp Excel -filKill Environ ("temp") & "\" & FileName & ".xlsx"'Filnavn validert - Avslutt funksjonValidateFileName = TrueGoTo ExitProc'Hvis filen ikke kan opprettesUgyldig navn:Ved feil Fortsett neste'Lukk Temp Excel -filwb.Lukk Falsk'Filnavn ikke validert - Avslutt funksjonValidateFileName = FalseExitProc:Application.ScreenUpdating = FalskSluttfunksjon |
Du kan kalle funksjonen slik:
12345 | Sub test_ValidateFileName ()Debug.Print ValidateFileName ("fda?/")Slutt Sub |
Denne testprosedyren sender SANN eller FALSK til vinduet Umiddelbart.