Съдържание
Следният код ще потвърди дали името на файла е валидно. Това е полезно, ако вашият код изисква въведено от потребителя име на файл. Той ще провери дали името на файла е валидно, преди да продължите и евентуално генериране на грешка.
Потвърдете името на файла
Тази функция тества дали променливата „FileName“ е валидно име на файл:
1234567891011121314151617181920212223242526272829303132333435363738394041 | Функция ValidateFileName (ByVal FileName As String) Като булеваApplication.ScreenUpdating = FalseDim wb Като работна книга„Проверете за нищо в името на файла.Ако FileName = "" ТогаваValidateFileName = FalseОтидете до ExitProcКрай Ако„Създаване на временен файлПри грешка GoTo InvalidName:Задайте wb = Работни книгиwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51На грешка възобновяване следващо„Затвори Temp Excel файлwb.Close False„Изтриване на Temp Excel Excel файлKill Environ ("temp") & "\" & FileName & ".xlsx"„Име на файла потвърдено - Излезте от функциятаValidateFileName = ВярноОтидете до ExitProc„Ако файлът не може да бъде създаденНевалидно име:На грешка възобновяване следващо„Затвори Temp Excel файлwb.Close False„Името на файла не е валидирано - излезте от функциятаValidateFileName = FalseExitProc:Application.ScreenUpdating = FalseКрайна функция |
Можете да извикате функцията по следния начин:
12345 | Sub test_ValidateFileName ()Debug.Print ValidateFileName ("fda?/")End Sub |
Тази тестова процедура ще изведе TRUE или FALSE в непосредствения прозорец.