See Exceli makro võimaldab teil edastada failitee, et hinnata, kas fail on olemas. Näiteks võib teil olla protsess, mis manipuleerib teie arvutis asuva failiga. Näiteks võib tekkida vajadus avada olemasolev töövihik, et sellele igapäevaselt andmeid lisada. Sel juhul peate võib-olla testima, kas fail, mida peate manipuleerima, on olemas.
Kuidas makro töötab
Selle makro puhul tuleb kõigepealt tähele panna, et see on funktsioon, mitte alamprotseduur. Selle makro funktsiooniks muutmine võimaldab teil edastada sellele mis tahes failitee.
Selles makros kasutate funktsiooni Dir, mis tagastab stringi, mis tähistab faili nime, mis vastab sellele, mida te sellele edastate. Seda funktsiooni saab kasutada mitmel viisil, kuid siin saate seda kasutada selleks, et kontrollida, kas sellele edastatud failitee on olemas:
Funktsioon FileExists(FPath As String) Booleanina
1. samm: deklareerige oma muutujad
Dim FName stringina
2. samm: kasutage failinime hankimiseks funktsiooni Dir
FName = Dir(FPath)
"3. samm: kui fail on olemas, tagastage väärtus Tõene; muidu Vale
Kui FName <> " Siis fail eksisteerib = tõene _
Muu: FileExists = vale
Lõpetamisfunktsioon
Samm 1 deklareerib String muutuja, mis sisaldab failinime, mis tagastab funktsiooni Dir. FName on String muutuja nimi.
2. sammus proovite määrata muutuja FName. Seda saate teha, edastades muutuja FPath funktsioonile Dir. See FPath muutuja edastatakse funktsioonideklaratsioonide kaudu (vt koodi esimest rida). See struktuur takistab teil failitee kõvasti kodeerimist, edastades selle muutujana.
Kui muutujat FName ei saa määrata, pole teie läbitud teed olemas. Seega on muutuja FName tühi. Samm 3 lihtsalt tõlgib selle tulemuse tõeseks või valeks avaldiseks.
Jällegi saab seda funktsiooni kasutada mis tahes failitee hindamiseks, mille sellele edastate. See on makro funktsioonina kirjutamise ilu.
Järgmine makro näitab, kuidas seda funktsiooni kasutada:
Alammakro1()
Kui FileExists("C:TempMyNewBook.xlsx") = tõene, siis
MsgBox "Fail on olemas."
Muidu
MsgBox "Faili pole olemas."
Lõpeta Kui
Lõpeta alam
Kuidas makrot kasutada
Selle makro rakendamiseks saate kopeerida ja kleepida mõlemad koodijupid standardmoodulisse.
Aktiveerige Visual Basic Editor, vajutades Alt+F11.
Paremklõpsake projekti aknas projekti/töövihiku nimel.
Valige Lisa → Moodul.
Tippige või kleepige kood vastloodud moodulisse.