Obsah
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.
