U VBA možemo izbrisati bilo koju datoteku prisutnu na računalu pomoću VBA kodova, a kod koji se koristi za brisanje bilo koje datoteke poznat je pod nazivom Kill command, metoda brisanja bilo koje datoteke je ta da prvo pružamo put do datoteke što znači gdje datoteka se nalazi u računalu, a zatim za brisanje datoteke koristimo naredbu Kill.
Kako izbrisati datoteke pomoću VBA koda?
VBA je na početku teška stvar, ali kako provodite više vremena s VBA, počet ćete ga voljeti baš kao i ja. Datoteke možemo otvoriti iz druge mape računala, možemo raditi s njima, a sada i datoteke možemo izbrisati pomoću VBA kodiranja. U ovom ćemo vam članku pokazati kako možete izbrisati datoteke pomoću VBA koda u određenoj mapi.
Kada radimo s velikim projektima, obično stvorimo puno posrednih datoteka koje podržavaju naš proces. Nakon što je sav posao završen, te datoteke moramo izbrisati kako bismo izbjegli bilo kakvu zabunu u budućnosti.
A jedan je od scenarija kada obično dobijemo e-poštu. Spremamo privitke za redoviti posao ili samo želimo vidjeti izvješće za to vrijeme, a kasnije ćemo možda trebati izbrisati te datoteke.
Ručno brisanje tih datoteka potrajat će ili ćemo možda zaboraviti spremiti i zauzet će prostor na našem računalu. Pokazat ćemo vam kako te datoteke izbrisati jednostavnim VBA kodovima.
Metoda ubijanja za brisanje datoteka u mapi pomoću VBA koda
Jednostavna funkcija KILL izbrisat će mapu, određenu datoteku, sve excel datoteke itd. Pogledajte sintaksu metode KILL u VBA. Metoda kill ne može izbrisati datoteke samo za čitanje.
Naziv puta: naziv puta nije ništa drugo nego put do mape na računalu za brisanje datoteka.
Napomena: Naziv puta može sadržavati i zamjenske znakove. Kao zamjenski znakovi u Excelu možemo koristiti zvjezdicu (*) i upitnike (?).
Zvjezdica (*) je korisna za podudaranje bilo kojeg niza bilo koje duljine, čak se uzima u obzir i nula.
Znak pitanja (?) Koristan je za podudaranje samo jednog znaka.
Izbrišite određeno ime datoteke
Na primjer, imam mapu kao u nastavku.
U ovoj mapi želim izbrisati datoteku nazvanu "Datoteka 5". Pokrenite kod s funkcijom KILL.
Kodirati:
Sub Delete_Files () Ubijanje (Ime puta) Kraj Sub
Kopirajte i zalijepite put do mape.
I zalijepite u dvostruke navodnike.
Ubijte "E: Excel datoteke"
Sada stavite još jednu kosu crtu unatrag () i unesite naziv datoteke s nastavkom.
Ubijte "E: Excel datoteke File5.xlsx"
Kad pokrenete ovaj kôd, on će izbrisati datoteku pod nazivom "File 5.xlsx" u spomenutoj putanji mape.
Izbriši sve Excel datoteke
Da bismo izbrisali sve excel datoteke u mapi pomoću VBA, trebamo koristiti zamjenske znakove s funkcijom KILL. Nakon što smo spomenuli put do mape, datoteku moramo spomenuti kao "* .xl *."
Kodirati:
Ubijte "E: Excel datoteke *. Xl *"
Kada pokrenete ovaj kod, time će se izbrisati sve excel datoteke u mapi.
Vidjeli smo kako možemo izbrisati jednu excel datoteku i sve excel datoteke. Ali ako želimo izbrisati sve datoteke u mapi, kako to možemo izbrisati. Budući da koristimo Excel VBA, može li izbrisati druge datoteke?
Odgovor je Da !!! Koristite donji kod da biste izbrisali sve datoteke u mapi.
Kodirati:
Ubijte "E: Excel datoteke *. *"
Izbriši samo cijelu mapu
Je li moguće izbrisati cijelu mapu?
Da, moguće je.
Da bismo to učinili, prvo što moramo učiniti je da moramo izbrisati sve datoteke u mapi upotrebom funkcije KILL, a zatim mapu, a trebamo upotrijebiti još jednu funkciju koja se naziva RmDir .
Kodirati:
RmDir "E: Excel datoteke "
Ovdje će RmDir izbrisati samo praznu mapu ako je bilo koja podmapa tamo gdje ih ne može izbrisati.
Izbrišite sve tekstualne datoteke u mapi
Da biste izbrisali sve tekstualne datoteke u mapi, upotrijebite donji kod.
Kodirati:
Ubijte "E: Excel datoteke *. Txt"
Izbriši datoteke samo za čitanje
Kao što sam rekao, funkcija KILL ne može izbrisati datoteke "Samo za čitanje" u mapi. U takvom slučaju moramo koristiti druge dvije funkcije "Dir $" i "SetAttr". Ispod je primjer koda za brisanje i datoteka samo za čitanje.
Kodirati:
Sub Delete_Files1 () Dim DeleteFile kao niz DeleteFile = "E: Excel Files " If Len (Dir $ (DeleteFile))> 0 Zatim SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
Ovu VBA Izbriši datoteku Excel predloška možete preuzeti odavde - VBA Izbriši datoteku Excel Predložak.
