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 obavljenog posla moramo izbrisati te datoteke kako bismo izbjegli bilo kakvu zabunu u budućnosti.
I jedan je od scenarija kada obično primimo e-poštu, spremamo privitke za redoviti posao ili jednostavno želimo vidjeti izvješće za tu vremensku točku, 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 ubijanja 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 i da se uzima u obzir 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 Files \ File5.xlsx"
Kada pokrenete ovaj kôd, on će izbrisati datoteku nazvanu "File 5.xlsx" u spomenutoj putanji mape.
Izbriši sve Excel datoteke
Za brisanje svih excel datoteka u mapi pomoću VBA trebamo koristiti zamjenske znakove s funkcijom KILL. Nakon spominjanja puta 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 pomoću funkcije KILL, a zatim da bismo izbrisali mapu trebamo upotrijebiti još jednu funkciju zvanu RmDir .
Kodirati:
RmDir "E: \ Excel datoteke \"
Ovdje će RmDir izbrisati samo praznu mapu, ako postoji neka podmapa, ne može ih 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" funkcije. Ispod je primjer koda za brisanje i datoteka samo za čitanje.
Kodirati:
Sub Delete_Files1() Dim DeleteFile As String DeleteFile = " E:\Excel Files\" If Len(Dir$(DeleteFile)) > 0 Then SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
You can download this VBA Delete File Excel Template from here – VBA Delete File Excel Template