VBA: n avulla voit tarkistaa tiedoston tai kansion olemassaolon käyttämällä Ohjaaja toiminto.
Dir -komennon avulla voit tarkistaa, onko tiedosto olemassa
Kuten mainitsimme johdannossa, Ohjaaja -toiminnon avulla voimme tarkistaa, onko tietokoneessa valittu tiedosto. Tässä on koodi:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName kuin merkkijonoHimmennä strFileExists as StringstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA articles \ Test File Exists.xlsx"strFileExists = Dir (strFileName)Jos strFileExists = "" SittenMsgBox "Valittua tiedostoa ei ole olemassa"MuuMsgBox "Valittu tiedosto on olemassa"Loppu JosEnd Sub |
Määritimme ensin tiedostopolun muuttujalle strFileName. Sitten käytämme Ohjaaja -toimintoa, jos haluat saada tiedoston nimen muuttujaan strFileExists. Jos tiedosto on hakemistossa, sen nimi annetaan merkkijonomuuttujalle strFileExists. Jos sitä ei ole silloin strFileExists jää tyhjäksi. Lopuksi näyttöön tulee sanoma, joka ilmoittaa meille, onko tiedosto olemassa vai ei.
Dir -komennon käyttäminen kansion olemassaolon tarkistamiseen
Samoin kuin tiedoston olemassaolon tarkistaminen, voit tarkistaa, onko kansio olemassa. Sinun tarvitsee vain lisätä yksi argumentti Ohjaaja komento. Katsotaanko koodia:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName Kuten merkkijonoHimmennä strFolderExists as StringstrFolderName = "C: \ Käyttäjät \ Nikola \ Desktop \ VBA -artikkelit \ Testikansio \"strFolderExists = Dir (strFolderName, vbDirectory)Jos strFolderExists = "" SittenMsgBox "Valittua kansiota ei ole olemassa"MuuMsgBox "Valittu kansio on olemassa"Loppu JosEnd Sub |
Määritimme ensin kansion polun muuttujalle strFolderName. Sitten käytämme Ohjaaja -toimintoa, jos haluat saada tiedoston nimen muuttujaan strFileExists. Jotta voimme tarkistaa kansion, meidän on lisättävä toinen argumentti funktioon - vbDirecotry. Jos kansio on hakemistossa, sen nimi annetaan muuttujalle strFolderExists. Jos ei strFolderExists jää tyhjäksi.
