Содержание
Следующий код проверяет правильность имени файла. Это полезно, если ваш код требует, чтобы имя файла было введено пользователем. Он проверит правильность имени файла, прежде чем продолжить и, возможно, сгенерировать ошибку.
Проверить имя файла
Эта функция проверяет, что переменная FileName является допустимым именем файла:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Функция ValidateFileName (ByVal FileName как строка) как логическое значениеApplication.ScreenUpdating = FalseDim wb As Workbook'Ничего не проверяйте в имени файла.Если FileName = "" ТогдаValidateFileName = FalseGoTo ExitProcКонец, если'Создать временный файлПри ошибке GoTo InvalidName:Установите wb = Workbooks.Add.wb.SaveAs Environ ("temp") & "\" & Имя файла & ".xlsx", 51При ошибке Возобновить Далее'Закройте временный файл Excelwb.Close False'Удалить временный файл ExcelУбить Environ ("temp") & "\" & FileName & ".xlsx"'Имя файла подтверждено - функция выходаValidateFileName = TrueGoTo ExitProc'Если файл не может быть созданНеверное имя:При ошибке Возобновить Далее'Закройте временный файл Excelwb.Close False'Имя файла не подтверждено - функция выходаValidateFileName = FalseExitProc:Application.ScreenUpdating = FalseКонечная функция |
Вы можете вызвать функцию так:
| 12345 | Sub test_ValidateFileName ()Debug.Print ValidateFileName ("fda? /")Конец подписки |
Эта тестовая процедура выводит ИСТИНА или ЛОЖЬ в окно немедленной обработки.
