Provjera imena datoteka - primjeri VBA koda

Sljedeći kôd će provjeriti je li naziv datoteke ispravan. Ovo je korisno ako vaš kôd zahtijeva naziv datoteke koji je unijeo korisnik. Prije nego što nastavite, provjerit će je li naziv datoteke važeći i eventualno generirati pogrešku.

Potvrdite naziv datoteke

Ova funkcija provjerava je li varijabla "Ime datoteke" valjani naziv datoteke:

1234567891011121314151617181920212223242526272829303132333435363738394041

Funkcija ValidateFileName (ByVal FileName As String) Kao BooleanApplication.ScreenUpdating = NetačnoDim wb Kao radna bilježnica'Provjerite nema li u nazivu datoteke ništa.Ako je FileName = "" OndaValidateFileName = NetačnoIdi na ExitProcZavrši ako'Stvori privremenu datotekuGreška pri prelasku na InvalidName:Postavite wb = Radne knjige.Dodajwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Uključeno Slijedi nastavak greške'Zatvori temp Excel datotekuwb.Zatvori Netačno'Brisanje temp Excel datotekeUbijte Environ ("temp") & "\" & FileName & ".xlsx"'Ime datoteke potvrđeno - izađite iz funkcijeValidateFileName = IstinaIdi na ExitProc'Ako se datoteka ne može stvoritiNevažeće ime:Uključeno Slijedi nastavak greške'Zatvori temp Excel datotekuwb.Zatvori Netačno'Naziv datoteke nije provjeren - izađite iz funkcijeValidateFileName = NetačnoExitProc:Application.ScreenUpdating = NetačnoZavršna funkcija

Funkciju možete pozvati ovako:

12345

Pod test_ValidateFileName ()Ispravljanje ispisa ValidateFileName ("fda?/")Kraj podm

Ovaj testni postupak prikazuje TRUE ili FALSE u neposrednom prozoru.