V Microsoft Excelu lahko s kodo VBA preverimo, ali datoteka obstaja na določeni lokaciji. Makro bo prikazal stanje v obliki polja za sporočila. V tem članku bomo s pomočjo kode VBA ugotovili, ali status določene datoteke obstaja ali ne. S funkcijo Dir lahko s programom Excel VBA preverimo, ali datoteka obstaja na lokaciji.
S tem programom lahko preverimo, ali obstaja datoteka, ki že obstaja na istem mestu. Tako lahko staro datoteko izbrišemo ali preimenujemo.
Vprašanje: Ko ustvarjamo makro za avtomatizacijo opravila, običajno shranimo izhodno datoteko na mesto. Rad bi imel makro za preverjanje in v zameno pokazal, da je datoteka na voljo ali ni na določeni poti.
Za ponazoritev tega primera bomo datoteko »Sample.xlsx« shranili na poti »D: \ Ime mape \ Sample.xlsx«
Če želite ugotoviti, ali delovni zvezek obstaja, sledimo spodnjim korakom za zagon urejevalnika VB:
- Kliknite zavihek Razvijalec
- V skupini Koda izberite Visual Basic
- Kliknite Vstavi in nato Modul
- To bo ustvarilo nov modul
- V standardni modul vnesite naslednjo kodo
Sub FileExists () Dim FilePath As String Dim TestStr As String FilePath = "D: \ Ime mape \ Sample.xlsx" TestStr = "" Napaka Nadaljuj Naprej TestStr = Dir (FilePath) Napaka GoTo 0 Če TestStr = "" Potem MsgBox " Datoteka ne obstaja "Else Workbooks.Open" D: \ FolderName \ Sample.xlsx "End If End Sub
- Zdaj je makro pripravljen za zagon, uporabili bomo bližnjico F5 in odprla se bo datoteka »Vzorec«
- Če datoteka ni na voljo na vnaprej določeni poti, se prikaže naslednje okno s sporočilom
Zaključek: Na ta način lahko s pomočjo kode VBA enostavno prepoznamo, ali določena datoteka obstaja ali ne na določeni poti.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte