Innehållsförteckning
Följande kod validerar om ett filnamn är giltigt. Detta är användbart om din kod kräver ett användarnamnfilnamn. Det kommer att verifiera att filnamnet är giltigt innan du fortsätter och eventuellt genererar ett fel.
Validera filnamn
Denna funktion testar att variabeln 'Filnamn' är ett giltigt filnamn:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Funktion ValidateFileName (ByVal FileName As String) Som BooleanApplication.ScreenUpdating = FalsktDim wb Som arbetsbok'Sök ingenting i filnamnet.Om FileName = "" DåValidateFileName = FalseGoTo ExitProcAvsluta om'Skapa Temp -filVid fel GoTo Ogiltigt namn:Ange wb = Workbooks.Addwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Vid fel Återuppta nästa'Stäng Temp Excel -filwb.Close False'Ta bort Temp Excel -filKill Environ ("temp") & "\" & FileName & ".xlsx"'Filnamn validerat - Avsluta funktionValidateFileName = TrueGoTo ExitProc'Om filen inte kan skapasOgiltigt namn:Vid fel Återuppta nästa'Stäng Temp Excel -filwb.Close False'Filnamn ej validerat - Avsluta funktionValidateFileName = FalseExitProc:Application.ScreenUpdating = FalsktAvsluta funktion |
Du kan kalla funktionen så här:
| 12345 | Sub test_ValidateFileName ()Debug.Print ValidateFileName ("fda?/")Avsluta Sub |
Detta testförfarande kommer att sända SANT eller FALSKT till det omedelbara fönstret.
