VBA позволяет вам проверить, существует ли файл или папка, используя Dir функция.
Использование команды Dir для проверки существования файла
Как мы упоминали во введении, Dir функция позволяет нам проверить, существует ли выбранный файл на компьютере. Вот код:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName As StringDim strFileExists как строкаstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA статьи \ Test File Exists.xlsx"strFileExists = Каталог (strFileName)Если strFileExists = "" ТогдаMsgBox «Выбранный файл не существует»ЕщеMsgBox «Выбранный файл существует»Конец, еслиКонец подписки |
Сначала мы присвоили путь к файлу переменной strFileName. Затем мы используем Dir функция для получения имени файла в переменной strFileExists. Если файл существует в каталоге, его имя будет присвоено строковой переменной strFileExists. Если его нет, то strFileExists останется пустым. Наконец, появляется окно сообщения, информирующее нас, существует ли файл или нет.
Использование команды Dir для проверки существования папки
Аналогично проверке наличия файла вы можете проверить, существует ли папка. Вам просто нужно добавить один аргумент в Dir команда. Посмотрим на код:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName As StringDim strFolderExists As StringstrFolderName = "C: \ Users \ Nikola \ Desktop \ Статьи VBA \ Test Folder \"strFolderExists = каталог (strFolderName, vbDirectory)Если strFolderExists = "" ТогдаMsgBox «Выбранная папка не существует»ЕщеMsgBox «Выбранная папка существует»Конец, еслиКонец подписки |
Сначала мы присвоили путь к папке переменной strFolderName. Затем мы используем Dir функция для получения имени файла в переменной strFileExists. Чтобы проверить папку, нам нужно добавить второй аргумент функции - vbDirecotry. Если папка существует в каталоге, ее имя будет присвоено переменной strFolderExists. Если не strFolderExists останется пустым.
