Inhaltsverzeichnis
Der folgende Code überprüft, ob ein Dateiname gültig ist. Dies ist nützlich, wenn Ihr Code einen vom Benutzer eingegebenen Dateinamen erfordert. Es wird überprüfen, ob der Dateiname gültig ist, bevor es fortfährt und möglicherweise einen Fehler generiert.
Dateinamen validieren
Diese Funktion testet, ob die Variable ‚FileName‘ ein gültiger Dateiname ist:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Funktion ValidateFileName(ByVal FileName As String) As BooleanApplication.ScreenUpdating = FalseDim wb als Arbeitsmappe' Überprüfen Sie, ob der Dateiname leer ist.If FileName = "" ThenValidateFileName = FalseGehe zu ExitProcEnde Wenn'Temp-Datei erstellenBei Fehler GoTo InvalidName:Set wb = Workbooks.Addwb.SaveAs Environ("temp") & "\" & Dateiname & ".xlsx", 51Bei Fehler Fortsetzen als nächstes'Temp-Excel-Datei schließenwb.Schließen Falsch'Temp-Excel-Datei löschenKill Environ("temp") & "\" & Dateiname & ".xlsx"'Dateiname validiert - Funktion beendenValidateFileName = TrueGehe zu ExitProc'Wenn Datei nicht erstellt werden kannUngültiger Name:Bei Fehler Fortsetzen als nächstes'Temp-Excel-Datei schließenwb.Schließen Falsch'Dateiname nicht validiert - Funktion beendenValidateFileName = FalseExitProc:Application.ScreenUpdating = FalseEndfunktion |
Sie können die Funktion wie folgt aufrufen:
| 12345 | Untertest_ValidateFileName()Debug.Print ValidateFileName("fda?/")End Sub |
Diese Testprozedur gibt TRUE oder FALSE an das Direktfenster aus.
