В Microsoft Excel мы можем проверить, существует ли файл в определенном месте, используя код VBA. Макрос отобразит статус в виде окна сообщения. В этой статье мы определим, существует ли статус того или иного файла, с помощью кода VBA. Мы можем использовать функцию Dir, чтобы проверить, существует ли файл в местоположении, используя Excel VBA .

_ С помощью этой программы мы можем проверить, существует ли какой-либо файл, который уже существует в том же месте. Таким образом, мы можем удалить или переименовать старый файл ._

===

Вопрос: Когда мы создаем макрос для автоматизации задачи, мы обычно сохраняем выходной файл в определенном месте. Я хотел бы иметь макрос для проверки и взамен показать, доступен ли файл по определенному пути.

Чтобы проиллюстрировать этот пример, мы сохраним файл «Sample.xlsx» по пути «D: \ FolderName \ Sample.xlsx»

image 1

Чтобы определить, существует ли книга, нам нужно выполнить следующие шаги, чтобы запустить редактор VB:

Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic

image 2

image 3

===

Нажмите «Вставить», затем «Модуль». Будет создан новый модуль. * Введите следующий код в стандартный модуль

Sub FileExists()

Dim FilePath As String

Dim TestStr As String

FilePath = "D:\FolderName\Sample.xlsx"

TestStr = ""

On Error Resume Next

TestStr = Dir(FilePath)

On Error GoTo 0

If TestStr = "" Then

MsgBox "File doesn't exist"

Else

Workbooks.Open "D:\FolderName\Sample.xlsx"

End If

End Sub

image 4

  • Теперь макрос готов к работе, воспользуемся сочетанием клавиш F5 и откроется файл «Sample»

image 5

  • Если файл недоступен по заранее заданному пути, то будет отображаться следующее окно сообщения

Если вам понравились наши блоги, поделитесь ими с друзьями на Facebook. А также вы можете подписаться на нас в Twitter и Facebook .

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить, дополнить или усовершенствовать нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]