Как да проверите дали във вашия компютър съществува файл или папка с Excel VBA?

Днешният урок за автоматизация на Office е фокусиран върху научаването как да проверите дали файл съществува в една от директориите на вашия компютър.

Подготовка

Ако сте малко нови в кодирането, уверете се, че разделът за разработка на Microsoft Office Excel е активиран и че сте запознати с някои основни Excel VBA .

Проверка дали съществува файл с Excel VBA

Следният код използва полета за въвеждане, за да улови пътя към файла, както и самото име на файла от потребителя.

След това използва метода Dir , за да провери дали пътят на файла наистина съществува.

И накрая, той показва поле за съобщение на потребителя с резултата от проверката.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

Проверете дали папка съществува

По доста подобен начин можете да проверите дали във вашата операционна система съществува конкретна папка. Също така тук използваме метода Dir , но с параметъра vbDirectory .

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

Използване на кода

• Отворете Microsoft Excel и отидете до вашата работна книга.
• Натиснете Developer и след това натиснете Visual Basic.
• Копирайте и поставете кода отгоре като подпрограма в конкретен лист от вашия VBA модул.
• Изпълнете (F5) кода.
• Запазете работната си книга.

Възможни разширения

Кодът на котела по-горе може да бъде разширен за следните случаи на употреба:

• Създайте папка/файл, ако все още не съществува.
• Изтрийте файл от папка, при условие че те присъстват в файловата директория на вашата операционна система.
• Търсете файлове/папки с помощта на заместващ знак.