VBA ļauj pārbaudīt, vai fails vai mape pastāv, izmantojot Rež funkciju.
Izmantojot komandu Dir, lai pārbaudītu, vai fails pastāv
Kā mēs minējām ievadā ,. Rež Šī funkcija ļauj pārbaudīt, vai datorā ir atlasīts fails. Šeit ir kods:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName kā virkneDim strFileExists kā virknestrFileName = "C: \ Lietotāji \ Nikola \ Desktop \ VBA raksti \ Testa fails eksistē.xlsx"strFileExists = Dir (strFileName)Ja strFileExists = "" TadMsgBox "Atlasītais fails neeksistē"CitādiMsgBox "Izvēlētais fails pastāv"Beigas JaBeigu apakš |
Mēs vispirms piešķīrām faila ceļu mainīgajam strFileName. Tad mēs izmantojam Rež funkcija, lai faila nosaukumu ievadītu mainīgajā strFileExists. Ja fails pastāv direktorijā, tā nosaukums tiks piešķirts virknes mainīgajam strFileExists. Ja tā neeksistē, tad strFileExists paliks tukšs. Visbeidzot, tiek parādīts ziņojumu lodziņš, kas informē mūs, vai fails pastāv vai nav.
Izmantojot komandu Dir, lai pārbaudītu mapes esamību
Līdzīgi kā faila esamības pārbaudei, varat pārbaudīt, vai mape pastāv. Jums vienkārši jāpievieno viens arguments Rež komandu. Apskatīsim kodu:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName kā virkneDim strFolderExists Kā virknestrFolderName = "C: \ Lietotāji \ Nikola \ Desktop \ VBA raksti \ Pārbaudes mape \"strFolderExists = Dir (strFolderName, vbDirectory)Ja strFolderExists = "" TadMsgBox "Izvēlētā mape neeksistē"CitādiMsgBox "Atlasītā mape pastāv"Beigas JaBeigu apakš |
Mēs vispirms mainīgajam piešķīrām mapes ceļu strFolderName. Tad mēs izmantojam Rež funkcija, lai faila nosaukumu ievadītu mainīgajā strFileExists. Lai pārbaudītu mapi, funkcijai jāpievieno otrais arguments - vbDirecotry. Ja mape pastāv direktorijā, tās nosaukums tiks piešķirts mainīgajam strFolderExists. Ja nē strFolderExists paliks tukšs.
