Šis Excel makro ļauj nodot faila ceļu, lai novērtētu, vai fails tur ir. Piemēram, jums var būt process, kas manipulē ar failu kaut kur jūsu datorā. Piemēram, jums var būt nepieciešams atvērt esošu darbgrāmatu, lai katru dienu tai pievienotu datus. Šādā gadījumā jums, iespējams, būs jāpārbauda, vai fails, ar kuru vēlaties manipulēt, pastāv.
Kā darbojas makro
Pirmā lieta, kas jāpamana saistībā ar šo makro, ir tā, ka tā ir funkcija, nevis apakšprocedūra. Padarot šo makro par funkciju, varat tam nodot jebkuru faila ceļu.
Šajā makro tiek izmantota funkcija Dir, kas atgriež virkni, kas apzīmē faila nosaukumu, kas atbilst tam, ko tam nosūtāt. Šo funkciju var izmantot daudzos veidos, taču šeit jūs to izmantojat, lai pārbaudītu, vai faila ceļš, kuru nododat tai, pastāv:
Funkcija FileExists(FPath As String) Kā Būla
1. darbība: deklarējiet savus mainīgos
Dim FName kā virkne
2. darbība: izmantojiet funkciju Dir, lai iegūtu faila nosaukumu
FName = Dir(FPath)
'3. darbība. Ja fails pastāv, atgrieziet True; citādi Nepatiesi
Ja FName <> " Tad FileExists = True _
Cits: FileExists = False
Beigu funkcija
1. darbība deklarē virknes mainīgo, kurā ir faila nosaukums, kas tiek atgriezts no funkcijas Dir. FName ir mainīgā String nosaukums.
2. darbībā jūs mēģināt iestatīt mainīgo FName. To var izdarīt, nododot mainīgo FPath funkcijai Dir. Šis FPath mainīgais tiek nodots, izmantojot funkciju deklarācijas (skatiet koda pirmo rindiņu). Šī struktūra neļauj jums stingri kodēt faila ceļu, tā vietā nododot to kā mainīgo.
Ja mainīgo FName nevar iestatīt, jūsu izietais ceļš neeksistē. Tādējādi mainīgais FName ir tukšs. 3. darbība tikai pārvērš šo rezultātu izteiksmē Patiess vai Nepatiess.
Atkal, šo funkciju var izmantot, lai novērtētu jebkura faila ceļu, kuru tam nododat. Tas ir makro rakstīšanas kā funkcijas skaistums.
Šis makro parāda, kā izmantot šo funkciju:
Apakšmakro1()
Ja FileExists("C:TempMyNewBook.xlsx") = Patiess, tad
MsgBox "Fails pastāv."
Citādi
MsgBox "Fails neeksistē."
Beigas Ja
Beigt apakš
Kā lietot makro
Lai ieviestu šo makro, varat kopēt un ielīmēt abas koda daļas standarta modulī:
Aktivizējiet Visual Basic redaktoru, nospiežot Alt+F11.
Ar peles labo pogu noklikšķiniet uz projekta/darbgrāmatas nosaukuma projekta logā.
Izvēlieties Ievietot → Modulis.
Ierakstiet vai ielīmējiet kodu jaunizveidotajā modulī.