Како проверити да ли датотека или фасцикла постоји на вашем рачунару помоћу Екцел ВБА?

Данашњи водич за аутоматизацију система Оффице фокусиран је на учење како да проверите да ли датотека постоји у једном од директоријума вашег рачунара.

Припрема

Ако сте донекле нови у кодирању, уверите се да је картица за развој Мицрософт Оффице Екцел-а омогућена и да сте упознати са неким основним Екцел ВБА .

Проверавање да ли датотека постоји са Екцел ВБА

Следећи код користи оквире за унос како би ухватио путању до датотеке као и само име датотеке од корисника.

Затим користи методу Дир да би проверио да ли путања датотеке заиста постоји.

На крају, кориснику приказује оквир са поруком са резултатом провере.

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

Проверите да ли постоји фасцикла

На сличан начин можете проверити да ли одређена фасцикла постоји у вашем оперативном систему. Такође овде користимо метод Дир , али са параметром вбДирецтори .

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

Коришћење кода

• Отворите Мицрософт Екцел и идите до своје радне свеске.
• Притисните Девелопер, а затим притисните Висуал Басиц.
• Копирајте и налепите код одозго као потпрограм у било који одређени лист вашег ВБА модула.
• Покрените (Ф5) код.
• Сачувајте своју радну свеску.

Могућа проширења

Шифра котловске плоче изнад може се проширити за следеће случајеве употребе:

• Креирајте фасциклу / датотеку ако већ не постоји.
• Избришите датотеку фасцикле под условом да је присутна у директоријуму датотека вашег оперативног система.
• Потражите датотеке/директоријуме користећи џокер знак.