Макросы

Что делает макрос

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

Код макроса

1. Function FileExists(FPath As String) As Boolean
2. Dim FName As String                   '1 определить нужные переменные.
3. FName = Dir(FPath)                    '2 использовать функцию DIR, чтобы получить Имя файла
4. If FName <> "" Then FileExists = True '3 если файл существует, возвращаем Истина, иначе Ложь
5. Else: FileExists = False
6. End Function

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

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

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

1