VBA ištrinti failą | Kaip ištrinti failus aplanke naudojant VBA kodą?

VBA galime ištrinti bet kurį failą, esantį kompiuteryje, naudodami VBA kodus, o kodas, naudojamas bet kokiam failui ištrinti, yra žinomas kaip komanda „Nužudyti“. Bet kurio failo ištrynimo būdas yra tas, kad pirmiausia pateikiame failo kelią, o tai reiškia, kur failas yra kompiuteryje, tada failui ištrinti naudojame komandą Kill.

Kaip ištrinti failus naudojant VBA kodą?

Pradžioje VBA yra sunkus dalykas, bet praleidę 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 paprastai gauname el. Laišką, kuriame išsaugome priedus savo įprastam darbui, arba tiesiog norime pamatyti ataskaitą tam laikotarpiui, o vėliau gali tekti ištrinti tuos failus.

Šių failų rankinis ištrynimas užtruks, 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 tt 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 laikoma nuline.

Klausiamasis ženklas (?) Yra naudingas, kad atitiktų tik vieną simbolį.

Ištrinti konkretų failo pavadinimą

Pavyzdžiui, aš turiu tokį aplanką kaip žemiau.

Šiame aplanke noriu ištrinti failą pavadinimu „5 failas“. 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ą, pavadintą „File 5.xlsx“ iš minėto aplanko kelio.

Ištrinti visus „Excel“ failus

Norėdami ištrinti visus aplanko „Excel“ failus naudodami VBA, turime naudoti pakaitos simbolius su funkcija KILL. Paminėjus aplanko kelią, reikia paminėti failą kaip „* .xl *“

Kodas:

Nužudyk „E: \ Excel Files \ *. Xl *“

Kai paleisite šį kodą, tai ištrins visus aplanko „Excel“ failus.

Mes matėme, kaip mes 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ą, o tada ištrinti aplanką 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, jis negali jų ištrinti.

Ištrinkite visus aplanko tekstinius failus

Norėdami ištrinti visus aplanko tekstinius failus, naudokite toliau 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


$config[zx-auto] not found$config[zx-overlay] not found