U Microsoft Excelu možemo provjeriti postoji li datoteka na određenom mjestu pomoću VBA koda. Makro će prikazati status u obliku okvira za poruku. U ovom ćemo članku pomoću VBA koda identificirati postoji li status određene datoteke ili ne. Pomoću funkcije Dir možemo provjeriti postoji li datoteka na lokaciji pomoću programa Excel VBA.
Pomoću ovog programa možemo provjeriti postoji li datoteka koja već postoji na istom mjestu. Dakle, možemo izbrisati ili preimenovati staru datoteku.
Pitanje: Kad stvaramo makro za automatiziranje zadatka, općenito spremamo izlaznu datoteku na mjesto. Želio bih imati makro za provjeru i zauzvrat pokazati da li je datoteka dostupna ili nije na određenom putu.
Za ilustraciju ovog primjera spremit ćemo datoteku "Sample.xlsx" na stazi "D: \ Ime mape \ Sample.xlsx"
Da bismo utvrdili postoji li radna knjiga, moramo slijediti korake u nastavku za pokretanje VB uređivača:
- Kliknite karticu Developer
- Iz grupe kodova odaberite Visual Basic
- Pritisnite Umetni pa Modul
- Ovo će stvoriti novi modul
- Unesite sljedeći kôd u standardni modul
Sub FileExists () Dim FilePath As String Dim TestStr As String FilePath = "D: \ FolderName \ Sample.xlsx" TestStr = "" On Error Resume Next TestStr = Dir (FilePath) On Error GoTo 0 If TestStr = "" Onda MsgBox " Datoteka ne postoji "Else Workbooks.Open" D: \ FolderName \ Sample.xlsx "End If End Sub
- Sada je makronaredba sve pokrenuta, koristit ćemo tipku prečaca F5 i otvorit će se datoteka "Uzorak"
- Ako datoteka nije dostupna na unaprijed definiranoj putanji, prikazat će se sljedeći okvir s porukom
Zaključak: Na taj način pomoću VBA koda možemo lako prepoznati postoji li određena datoteka na određenoj putanji ili ne.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte