Inhoudsopgave
De volgende code valideert of een bestandsnaam geldig is. Dit is handig als uw code een door de gebruiker ingevoerde bestandsnaam vereist. Het zal controleren of de bestandsnaam geldig is voordat het verder gaat en mogelijk een fout genereert.
Valideer bestandsnaam
Deze functie test of de variabele 'FileName' een geldige bestandsnaam is:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Functie ValidateFileName(ByVal FileName As String) As BooleanApplication.ScreenUpdating = FalseDim wb als werkboek' Controleer op niets in de bestandsnaam.If FileName = "" DanValidateFileName = FalseGaNaar AfsluitenProcStop als'Maak tijdelijk bestand'Bij fout GoTo InvalidName:Stel wb = Werkmappen in.Toevoegenwb.SaveAs Environ("temp") & "\" & Bestandsnaam & ".xlsx", 51Bij fout Hervatten volgende'Sluit tijdelijk Excel-bestand'wb.Sluiten False'Verwijder tijdelijk Excel-bestand'Kill Environ("temp") & "\" & Bestandsnaam & ".xlsx"'Bestandsnaam gevalideerd - Afsluitfunctie'ValidateFileName = TrueGaNaar AfsluitenProc'Als bestand niet kan worden gemaakt'Ongeldige naam:Bij fout Hervatten volgende'Sluit tijdelijk Excel-bestand'wb.Sluiten False'Bestandsnaam niet gevalideerd - Afsluitfunctie'ValidateFileName = FalseExitProc:Application.ScreenUpdating = FalseFunctie beëindigen |
Je kunt de functie als volgt aanroepen:
| 12345 | Sub test_ValidateFileName()Debug.Print ValidateFileName("fda?/")Einde sub |
Deze testprocedure zal TRUE of FALSE uitvoeren naar het onmiddellijke venster.
