Как определить существует ли книга в папке

Что делает макрос: Данный макрос позволяет найти путь к определенному файлу, и проверить, существует ли книга в папке на компьютере.

Как макрос работает

Данное действие называется функцией, а не процедурой sub. Данный макрос позволяет найти путь к любому файлу. В макросе, мы используем функцию Dir. Данная функция задает строку, представляющую собой имя файла, которого мы ищем. Эта функция может быть использована во многих отношениях, но в данный момент, мы используем его, чтобы найти путь к нужному нам файлу.

Код макроса

Function FileExists(FPath As String) As Boolean
'Шаг 1: Определить переменные.
Dim FName As String
'Шаг 2: Использовать функцию Dir, чтобы получить Имя файла
FName = Dir(FPath)
'Шаг 3: Если файл существует, возвращаем ИСТИНА, иначе ЛОЖЬ
If FName <> "" Then FileExists = True _
Else: FileExists = False
End Function

Как работает этот код

  1. Определяем переменную строку, содержащую имя файла, определённого из функции Dir. FName – это имя переменной строки.
  2. На шаге 2 устанавливаем переменную FName. Это выполняется посредством передачи переменной FPath к функции Dir. Переменная FPath проходит через выявленные функции (см. первую строку кода). Такой поиск позволяет четко прописать путь к файлу, ища его в качестве переменной.
  3. Если переменная FName не может быть выявлена, то это означает, что файла нет. Шаг 3 показывает либо ложный, либо истинный результат.

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

  1. Активируйте редактор Visual Basic, нажав ALT + F11.
  2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
  3. Выберите Insert➜Module.
  4. Введите или вставьте код во вновь созданном модуле.
Оцените статью
Добавить комментарий