Ověřit názvy souborů - příklady kódu VBA

Následující kód ověří, zda je název souboru platný. To je užitečné, pokud váš kód vyžaduje uživatelem zadaný název souboru. Před pokračováním a případně generováním chyby ověří, zda je název souboru platný.

Ověřit název souboru

Tato funkce testuje, zda je proměnná „Název_souboru“ platným názvem souboru:

1234567891011121314151617181920212223242526272829303132333435363738394041

Funkce ValidateFileName (ByVal FileName As String) As BooleanApplication.ScreenUpdating = FalseDim wb jako sešit"Zkontrolujte, zda v názvu souboru není nic."Pokud FileName = "" PakValidateFileName = FalsePřejít na ExitProcKonec If'Vytvořit dočasný souborPři chybě GoTo InvalidName:Nastavit wb = Workbooks.Addwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Při chybě Pokračovat Další'Zavřete soubor Temp Excelwb. Zavřít False'Odstranit soubor Temp ExcelZabijte prostředí ("temp") & "\" & FileName & ".xlsx"'Název souboru ověřen - Funkce ukončeníValidateFileName = TruePřejít na ExitProc„Pokud soubor nelze vytvořitNeplatné jméno:Při chybě Pokračovat Další'Zavřete soubor Temp Excelwb. Zavřít False'Název souboru není ověřen - funkce ukončeníValidateFileName = FalseExitProc:Application.ScreenUpdating = FalseKoncová funkce

Funkci můžete volat takto:

12345

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

Tento testovací postup vyvede hodnotu TRUE nebo FALSE do okna Immediate.