Kuidas kontrollida, kas teie arvutis on Excel VBA abil fail või kaust?

Tänane Office'i automatiseerimise õpetus keskendub sellele, kuidas kontrollida, kas fail on ühes teie arvutikataloogidest olemas.

Ettevalmistus

Kui olete kodeerimises pisut uus, veenduge, et Microsoft Office Exceli arenduskaart oleks lubatud ja tunneksite mõnda põhilist Exceli VBA- d .

Faili olemasolu kontrollimine Excel VBA abil

Järgmine kood kasutab sisestuskaste, et jäädvustada kasutajalt faili tee ja failinimi.

Seejärel kasutab see meetodit Dir , et kontrollida, kas failitee on tõesti olemas.

Lõpuks kuvab see kasutajale teatekasti koos kontrolli tulemusega.

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

Kontrollige, kas kaust on olemas

Üsna sarnasel viisil saate kontrollida, kas teie operatsioonisüsteemis on konkreetne kaust. Ka siin kasutame meetodit Dir , kuid parameetriga 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

Koodi kasutamine

• Avage Microsoft Excel ja liikuge oma töövihikusse.
• Klõpsake nuppu Arendaja ja seejärel Visual Basic.
• Kopeerige ja kleepige ülaltoodud kood alamprogrammina oma VBA mooduli konkreetsele lehele.
• Käivitage (F5) kood.
• Salvestage oma töövihik.

Võimalikud pikendused

Ülaltoodud katlaplaadi koodi laiendatakse järgmistel kasutusjuhtudel:

• Looge kaust/fail, kui seda veel pole.
• Kustutage kausta fail, kui need on teie operatsioonisüsteemi failikataloogis.
• Otsige faile/kaustu metamärki kasutades.