VBA vam omogućuje da provjerite postoji li datoteka ili mapa pomoću Upu funkcija.
Pomoću naredbe Dir provjerite postoji li datoteka
Kao što smo spomenuli u uvodu, Upu funkcija omogućuje provjeru postoji li odabrana datoteka na računalu. Evo koda:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName As StringDim strFileExists As StringstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA članci \ Test datoteka postoji.xlsx"strFileExists = Dir (strFileName)Ako strFileExists = "" ZatimMsgBox "Odabrana datoteka ne postoji"DrugoMsgBox "Odabrana datoteka postoji"Završi akoKraj podm |
Najprije smo varijabli dodijelili put do datoteke strFileName. Zatim koristimo Upu funkciju za unos naziva datoteke u varijablu strFileExists. Ako datoteka postoji u direktoriju, njeno ime bit će dodijeljeno varijabli niza strFileExists. Ako tada ne postoji strFileExists ostat će prazno. Konačno, pojavljuje se okvir s porukom koji nas obavještava postoji li datoteka ili ne.
Pomoću naredbe Dir provjerite postoji li mapa
Slično provjeri postoji li datoteka, možete provjeriti postoji li mapa. Samo trebate dodati jedan argument u Upu naredba. Pogledajmo kod:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName As StringDim strFolderExists As StringstrFolderName = "C: \ Korisnici \ Nikola \ Desktop \ VBA članci \ Testna mapa \"strFolderExists = Dir (strFolderName, vbDirectory)Ako strFolderExists = "" ZatimMsgBox "Odabrana mapa ne postoji"DrugoMsgBox "Odabrana mapa postoji"Završi akoKraj podm |
Varijabli smo prvo dodijelili put do mape strFolderName. Zatim koristimo Upu funkciju za unos naziva datoteke u varijablu strFileExists. Da bismo provjerili mapu, moramo dodati drugi argument u funkciju - vbDirecotry. Ako mapa postoji u direktoriju, njezin će naziv biti dodijeljen varijabli strFolderExists. Ako ne strFolderExists će ostati prazno.
