Проверка на имена на файлове - Примери за VBA код

Следният код ще потвърди дали името на файла е валидно. Това е полезно, ако вашият код изисква въведено от потребителя име на файл. Той ще провери дали името на файла е валидно, преди да продължите и евентуално генериране на грешка.

Потвърдете името на файла

Тази функция тества дали променливата „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 в непосредствения прозорец.