Spisie treści
Poniższy kod sprawdzi poprawność nazwy pliku. Jest to przydatne, jeśli twój kod wymaga nazwy pliku wprowadzonej przez użytkownika. Zweryfikuje, czy nazwa pliku jest prawidłowa, zanim przejdzie dalej i prawdopodobnie wygeneruje błąd.
Sprawdź nazwę pliku
Ta funkcja sprawdza, czy zmienna „FileName” jest poprawną nazwą pliku:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Funkcja ValidateFileName(ByVal FileName As String) As BooleanApplication.ScreenUpdating = FałszDim wb jako skoroszyt' Sprawdź, czy w nazwie pliku nie ma niczego.Jeśli FileName = "" ThenValidateFileName = FalsePrzejdź do wyjściaProcZakończ, jeśli'Utwórz plik tymczasowyW przypadku błędu przejdź do nieprawidłowej nazwy:Ustaw wb = Skoroszyty.Dodajwb.SaveAs Environ("temp") & "\" & NazwaPliku & ".xlsx", 51Przy błędzie Wznów Dalej'Zamknij tymczasowy plik Excel'wb.Zamknij Fałsz'Usuń plik Temp Excel'Zabij Environ("temp") & "\" & NazwaPliku & ".xlsx"„Zatwierdzona nazwa pliku - funkcja wyjścia”ValidateFileName = TruePrzejdź do wyjściaProc'Jeśli nie można utworzyć plikuBłędna nazwa:Przy błędzie Wznów Dalej'Zamknij tymczasowy plik Excel'wb.Zamknij Fałsz'Nazwa pliku nie została zweryfikowana - funkcja wyjściaValidateFileName = FalseWyjście z procedury:Application.ScreenUpdating = FałszKoniec funkcji |
Możesz wywołać funkcję w ten sposób:
| 12345 | Test podrzędny_NazwaPliku Walidacji()Debug.Print ValidateFileName("fda?/")Napis końcowy |
Ta procedura testowa wyświetli TRUE lub FALSE w oknie bezpośrednim.
