Kuinka tarkistaa, onko tietokoneessasi tiedosto tai kansio Excel VBA:lla?

Tämän päivän Officen automaatio-opetusohjelmassa opitaan varmistamaan, että tiedosto on jossakin tietokoneesi hakemistoista.

Valmistautuminen

Jos olet hieman uusi koodaamassa, varmista, että Microsoft Office Excelin kehitysvälilehti on käytössä ja että olet perehtynyt joihinkin Excel VBA:n perustoimintoihin .

Tarkistetaan, onko tiedosto olemassa Excel VBA:lla

Seuraava koodi hyödyntää syöttöruutuja kaapatakseen polun tiedostoon sekä itse tiedostonimen käyttäjältä.

Sitten se hyödyntää Dir - menetelmää varmistaakseen, onko tiedostopolku todella olemassa.

Lopuksi se näyttää käyttäjälle viestiruudun, jossa on tarkistustulos.

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

Tarkista, onko kansio olemassa

Samalla tavalla voit tarkistaa, onko käyttöjärjestelmässäsi tietty kansio. Myös tässä hyödynnetään Dir - menetelmää, mutta vbDirectory- parametrilla.

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

Koodin käyttäminen

• Avaa Microsoft Excel ja siirry työkirjaasi.
• Paina Developer ja sitten Visual Basic.
• Kopioi ja liitä koodi ylhäältä aliohjelmaksi jommallekummalle VBA-moduulisi arkille.
• Suorita (F5) koodi.
• Tallenna työkirjasi.

Mahdolliset laajennukset

Yllä olevaa kattilalevykoodia laajennetaan seuraaviin käyttötapauksiin:

• Luo kansio/tiedosto, jos sitä ei vielä ole.
• Poista kansion tiedosto, jos ne ovat käyttöjärjestelmän tiedostohakemistossa.
• Etsi tiedostoja/kansioita jokerimerkillä.