Проверка наличия файла

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Проверка наличия файла (VBA)

Starbirst

Дата: Понедельник, 18.12.2017, 23:12 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Доброго времени суток всем! Ребята, помогите, пожалуйста, решить следующую проблему! Как сделать, чтобы макрос перед срабатыванием проверял наличие требуемого файла в определенной директории. Предположим в определенной директории содержится файл, в этом случае макрос прекращает дальнейшее действие и появляется UserForm в виде сообщения о том, что дальнейшее продолжение невозможно. В случае, если в директории не удалось обнаружить файл с конкретным именем, то макрос выполняется дальше.

Ответить

vikttur

Дата: Понедельник, 18.12.2017, 23:17 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

[vba]

Код

sFldr = ThisWorkbook.Path & "\Temp\" & "файл.xlsx"
If Dir(sFldr, vbDirectory) = "" Then ... ' если нет, то...

[/vba]

Ответить

Starbirst

Дата: Понедельник, 18.12.2017, 23:34 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Подскажите, как мне правильно заменить "\Temp\" на директорию "C:\Разработки\Ведомость дефектов\Дефекты по типам ПС\"? Ругается Excel...
= "" как этот применить к UserForm?

Сообщение отредактировал Starbirst - Понедельник, 18.12.2017, 23:34

Ответить

vikttur

Дата: Понедельник, 18.12.2017, 23:36 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

[vba]

Код

sFldr = "C:\Разработки\Ведомость дефектов\Дефекты по типам ПС\файл.xlsx"

[/vba]
При чем здесь форма пользователя, не понял...

Ответить

Starbirst

Дата: Вторник, 19.12.2017, 00:06 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Поясню. У каждого пользователя на его рабочем компе имеется файл. После того, как пользователь заполнил свои данные, ему нужно будет загрузить таблицу с базой данных, которая лежит в сети. Открытие базы данных осуществляется из файла на компе каждого пользователя. Чтобы файл не открывался в режиме только для чтения, пытаюсь сделать проверку файла на открытие. То есть если кто-то из пользователей работает в базе данных, то вместе с файлом временно создается текстовый документ, наличие которого свидетельствует о том, что база данных уже открыта, а когда пользователь завершит свою работу, текстовый документ самоустранится. При наличии текстового файлика любой другой пользователь получит сообщение, что база данных используется другим пользователем. Сколько ни пытался найти решение в инете, так ничего дельного не попалось. С макросами очень поверхностно работаю.

Ответить

vikttur

Дата: Вторник, 19.12.2017, 00:40 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

[vba]

Код

    sFldr = "C:\Разработки\Ведомость дефектов\Дефекты по типам ПС\файл.xlsx"
    If Dir(sFldr, vbDirectory) <> "" Then  ' файл есть
          MsgBox "Файл занят. Попейте кофейку или поиграйте в тетрис"
    Else
          MsgBox "Кофеварка отключена. Пора работать"
    End If

[/vba]