Overenie názvov súborov - príklady kódu VBA

Nasledujúci kód overí, či je názov súboru platný. Je to užitočné, ak váš kód vyžaduje názov súboru zadaný používateľom. Pred pokračovaním a prípadným vygenerovaním chyby overí, či je názov súboru platný.

Overte názov súboru

Táto funkcia testuje, či je premenná „FileName“ platným názvom súboru:

1234567891011121314151617181920212223242526272829303132333435363738394041

Funkcia ValidateFileName (ByVal FileName As String) As BooleanApplication.ScreenUpdating = FalseDim wb ako zošit„V názve súboru nič nehľadajte.Ak FileName = "" PotomValidateFileName = FalseGoTo ExitProcKoniec Ak'Vytvorte dočasný súborPri chybe GoTo InvalidName:Nastaviť wb = zošity. Pridaťwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Pri chybe Pokračovať ďalej'Zatvorte súbor Temp Excelwb.Close False„Odstráňte súbor Temp ExcelKill Environ ("temp") & "\" & FileName & ".xlsx"'Názov súboru overený - funkcia ukončeniaValidateFileName = TrueGoTo ExitProc„Ak súbor nie je možné vytvoriťInvalidName:Pri chybe Pokračovať ďalej'Zatvorte súbor Temp Excelwb.Close False„Názov súboru nie je overený - funkcia ukončeniaValidateFileName = FalseExitProc:Application.ScreenUpdating = FalseKoncová funkcia

Túto funkciu môžete zavolať takto:

12345

Sub test_ValidateFileName ()Debug.Print ValidateFileName ("fda?/")Koniec pod

Tento testovací postup vyvedie hodnotu TRUE alebo FALSE do okamžitého okna.