Kako preveriti, ali datoteka ali mapa obstaja v vašem računalniku z Excel VBA?

Današnja vadnica za avtomatizacijo Officea je osredotočena na učenje, kako preveriti, ali datoteka obstaja v enem od imenikov vašega računalnika.

Priprava

Če ste malo novi v kodiranju, zagotovite, da je zavihek za razvoj Microsoft Office Excel omogočen in da poznate nekaj osnovnih Excel VBA .

Preverjanje, ali datoteka obstaja z Excel VBA

Naslednja koda uporablja vnosna polja, da od uporabnika zajame pot do datoteke in samo ime datoteke.

Nato uporabi metodo Dir , da preveri, ali pot do datoteke res obstaja.

Nazadnje uporabniku prikaže okno s sporočilom z rezultatom preverjanja.

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

Preverite, ali mapa obstaja

Na precej podoben način lahko preverite, ali v vašem operacijskem sistemu obstaja določena mapa. Tudi tukaj uporabljamo metodo Dir , vendar s parametrom 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

Uporaba kode

• Odprite Microsoft Excel in se pomaknite do delovnega zvezka.
• Pritisnite Razvijalec in nato Visual Basic.
• Kopirajte in prilepite kodo od zgoraj kot podprogram na določen list vašega modula VBA.
• Zaženite (F5) kodo.
• Shranite svoj delovni zvezek.

Možne razširitve

Zgornja koda kotlovske tablice je treba razširiti za naslednje primere uporabe:

• Ustvarite mapo/datoteko, če še ne obstaja.
• Izbrišite datoteko mape, če je prisotna v imeniku datotek vašega operacijskega sistema.
• Poiščite datoteke/mape z nadomestnim znakom.