Ta Excelov makro vam omogoča, da podate pot do datoteke, da ocenite, ali je datoteka tam. Na primer, morda imate proces, ki manipulira z datoteko nekje v vašem računalniku. Morda boste morali na primer odpreti obstoječi delovni zvezek, da mu boste vsak dan dodajali podatke. V tem primeru boste morda morali preizkusiti, ali datoteka, s katero morate manipulirati, obstaja.
Kako deluje makro
Prva stvar, ki jo morate opaziti pri tem makru, je, da je funkcija in ne podprocedura. Če ta makro naredite za funkcijo, lahko vanj prenesete katero koli pot datoteke.
V tem makru uporabljate funkcijo Dir, ki vrne niz, ki predstavlja ime datoteke, ki se ujema s tem, kar ji posredujete. To funkcijo je mogoče uporabiti na več načinov, vendar jo tukaj uporabite za preverjanje, ali pot datoteke, ki ji posredujete, obstaja:
Funkcija FileExists (FPath kot niz) kot Boolean
1. korak: Deklarirajte svoje spremenljivke
Dim FName kot niz
2. korak: Uporabite funkcijo Dir, da dobite ime datoteke
FName = Dir (FPath)
'3. korak: Če datoteka obstaja, vrnite True; drugače Napačno
Če FName <> " Potem FileExists = True _
Drugače: FileExists = False
Končna funkcija
1. korak razglasi spremenljivko String, ki vsebuje ime datoteke, ki se vrne iz funkcije Dir. FName je ime spremenljivke String.
V 2. koraku poskušate nastaviti spremenljivko FName. To naredite tako, da spremenljivko FPath posredujete funkciji Dir. Ta spremenljivka FPath se posreduje prek deklaracij funkcije (glejte prvo vrstico kode). Ta struktura vam preprečuje, da bi morali trditi kodirati pot datoteke in jo namesto tega posredovati kot spremenljivko.
Če spremenljivke FName ni mogoče nastaviti, pot, ki ste jo posredovali, ne obstaja. Tako je spremenljivka FName prazna. 3. korak samo prevede ta rezultat v izraz True ali False.
Ponovno lahko to funkcijo uporabite za vrednotenje katere koli poti datoteke, ki ji jo posredujete. To je lepota pisanja makra kot funkcije.
Naslednji makro prikazuje, kako uporabljati to funkcijo:
Podmakro1()
Če FileExists("C:TempMyNewBook.xlsx") = True Potem
MsgBox "Datoteka obstaja."
Drugače
MsgBox "Datoteka ne obstaja."
Konec Če
Končni sub
Kako uporabljati makro
Za implementacijo tega makra lahko kopirate in prilepite oba dela kode v standardni modul:
Aktivirajte urejevalnik Visual Basic s pritiskom na Alt+F11.
Z desno tipko miške kliknite ime projekta/delovnega zvezka v oknu projekta.
Izberite Vstavi → Modul.
V novo ustvarjeni modul vnesite ali prilepite kodo.