VBA galime ištrinti bet kurį failą, esantį kompiuteryje, naudodami VBA kodus, o kodas, naudojamas bet kuriam failui ištrinti, yra žinomas kaip komanda „Nužudyti“. Bet kokio failo ištrynimo būdas yra tas, kad pirmiausia pateikiame failo kelią, o tai reiškia, kur failas yra kompiuteryje ir tada mes naudojame komandą Nužudyti, kad ištrintume failą.
Kaip ištrinti failus naudojant VBA kodą?
Pradžioje VBA yra sunkus dalykas, tačiau praleisdami daugiau laiko su VBA, pradėsite ją mylėti kaip ir aš. Galime atidaryti failus iš kito kompiuterio aplanko, galime su jais dirbti, o dabar galime ištrinti failus ir naudodami VBA kodavimą. Šiame straipsnyje mes parodysime, kaip galite ištrinti failus naudodami VBA kodą konkrečiame aplanke.
Kai dirbame su dideliais projektais, mes paprastai sukuriame daug tarpinių failų, kurie palaiko mūsų procesą. Atlikę visą darbą, turime ištrinti tuos failus, kad ateityje išvengtume painiavos.
Ir vienas scenarijus yra tas, kai dažniausiai gauname el. Laišką. Mes išsaugome priedus savo įprastam darbui arba tiesiog norime pamatyti to laiko ataskaitą, o vėliau gali tekti ištrinti tuos failus.
Rankiniu būdu ištrynus tuos failus užtruks laikas, arba mes galime pamiršti išsaugoti, ir tai užims vietą mūsų kompiuteryje. Mes jums parodysime, kaip ištrinti tuos failus su paprastais VBA kodais.
Nužudymo būdas ištrinti failus aplanke naudojant VBA kodą
Paprasta KILL funkcija ištrins aplanką, konkretų failą, visus „Excel“ failus ir pan. Pažvelkite į VBA KILL metodo sintaksę. Nužudymo metodas negali ištrinti tik skaitomų failų.
Kelio pavadinimas: kelio pavadinimas yra ne kas kita, o aplanko kelias kompiuteryje, norint ištrinti failus.
Pastaba: Kelio pavadinime taip pat gali būti pakaitos simbolių. „Excel“ pakaitos simbolius galime naudoti žvaigždute (*) ir klaustukais (?).
Žvaigždutė (*) yra naudinga, kad atitiktų bet kokio ilgio eilutes, net ir nulis.
Klausiamasis ženklas (?) Yra naudingas, kad atitiktų tik vieną simbolį.
Ištrinti konkretų failo pavadinimą
Pvz., Turiu tokį aplanką kaip žemiau.
Šiame aplanke noriu ištrinti failą pavadinimu „File 5“. Paleiskite kodą su funkcija KILL.
Kodas:
Sub Delete_Files () Kill (PathName) End Sub
Nukopijuokite ir įklijuokite aplanko kelią.
Ir įklijuokite dvigubomis kabutėmis.
Nužudyk „E: Excel Files“
Dabar įdėkite dar vieną atgalinį pasvirąjį brūkšnį () ir įveskite failo pavadinimą su plėtiniu.
Nužudyk „E: Excel Files File5.xlsx“
Kai paleisite šį kodą, jis ištrins failą pavadinimu „File 5.xlsx“ minėtame aplanko kelyje.
Ištrinti visus „Excel“ failus
Norėdami ištrinti visus aplanko „Excel“ failus naudodami VBA, turime naudoti pakaitos simbolius su funkcija KILL. Paminėję aplanko kelią, failą turime paminėti kaip „* .xl *“.
Kodas:
Nužudyk „E: Excel Files *. Xl *“
Kai paleisite šį kodą, tai ištrins visus aplanko „Excel“ failus.
Mes matėme, kaip galime ištrinti vieną „Excel“ failą ir visus „Excel“ failus. Bet jei mes norime ištrinti visus aplanko failus, kaip mes galime juos ištrinti. Ar mes naudojame „Excel VBA“, ar ji gali ištrinti kitus failus?
Atsakymas yra taip !!! Norėdami ištrinti visus aplanko failus, naudokite žemiau pateiktą kodą.
Kodas:
Nužudyk „E: Excel Files *. *“
Ištrinti tik visą aplanką
Ar įmanoma ištrinti visą aplanką?
Taip, tai įmanoma.
Norėdami tai padaryti, pirmiausia turime ištrinti visus aplanko failus naudodami KILL funkciją, tada ištrinti aplanką, ir mes turime naudoti dar vieną funkciją, vadinamą RmDir .
Kodas:
RmDir "E: Excel Files "
Čia „ RmDir “ ištrins tik tuščią aplanką, jei yra koks nors aplankas, kuriame jis negali jų ištrinti.
Ištrinkite visus aplanko tekstinius failus
Norėdami ištrinti visus aplanko tekstinius failus, naudokite žemiau pateiktą kodą.
Kodas:
Nužudyk „E: Excel Files *. Txt“
Ištrinkite tik skaitomus failus
Kaip sakiau, funkcija KILL negali ištrinti failų „Tik skaityti“ iš aplanko. Tokiu atveju turime naudoti kitas dvi funkcijas „Dir $“ ir „SetAttr“. Žemiau pateikiamas kodo pavyzdys, norint ištrinti tik skaitymo failus.
Kodas:
Sub Delete_Files1 () Dim DimFile As String DeleteFile = "E: Excel Files " If Len (Dir $ (DeleteFile))> 0, tada SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
Šį „VBA Delete File Excel“ šabloną galite atsisiųsti iš čia - „VBA Delete File Excel“ šablonas.
