Зміст
Наступний код перевірить правильність імені файлу. Це корисно, якщо для вашого коду потрібне введене користувачем ім'я файлу. Він переконається, що ім’я файлу дійсне, перш ніж продовжити і, можливо, створить помилку.
Перевірте назву файлу
Ця функція перевіряє, чи змінна "FileName" є дійсною назвою файлу:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Функція ValidateFileName (ByVal FileName As String) Як BooleanApplication.ScreenUpdating = НеправдаDim wb Як робочий зошит'Перевірте, чи немає нічого у назві файлу.Якщо FileName = "" ТодіValidateFileName = НеправдаПерейти до ExitProcЗакінчити Якщо'Створити тимчасовий файлПомилка переходу до InvalidName:Встановити wb = Робочі книги. Додатиwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Увімкнути Помилка Відновити Далі«Закрити файл Excel Tempwb.Закрити Неправда'Видалити Temp Excel файлВбити середовище ("temp") & "\" & FileName & ".xlsx"'Перевірена назва файлу - функція виходуValidateFileName = ІстинаПерейти до ExitProc'Якщо файл неможливо створитиНедійсне ім’я:Увімкнути Помилка Відновити Далі«Закрити файл Excel Tempwb.Закрити Неправда'Ім'я файлу не перевірено - функція виходуValidateFileName = НеправдаExitProc:Application.ScreenUpdating = НеправдаФункція завершення |
Викликати функцію можна так:
| 12345 | Sub test_ValidateFileName ()Debug.Print ValidateFileName ("fda?/")End Sub |
Ця процедура тестування видасть значення TRUE або FALSE у вікно Immediate.
