În VBA putem șterge orice fișier prezent în computer folosind coduri VBA, iar codul care este utilizat pentru ștergerea oricărui fișier este cunoscut sub numele de comandă Kill, metoda de ștergere a fișierului este aceea mai întâi, oferim calea fișierului, ceea ce înseamnă unde fișierul se află în computer și apoi folosim comanda Kill pentru a șterge fișierul.
Cum să ștergeți fișiere folosind codul VBA?
VBA este un lucru dificil la început, dar pe măsură ce petreceți mai mult timp cu VBA, veți începe să îl iubiți ca și mine. Putem deschide fișiere dintr-un alt folder al unui computer, putem lucra cu ele și acum putem șterge și fișiere folosind codarea VBA. În acest articol, vă vom arăta cum puteți șterge fișiere folosind codul VBA în folderul specific.
Când lucrăm cu proiecte mari, de obicei creăm o mulțime de fișiere intermediare pentru a ne susține procesul. După ce ați făcut toate lucrurile, trebuie să ștergem acele fișiere pentru a evita orice fel de confuzie în viitor.
Și un scenariu este când primim de obicei un e-mail, salvăm atașamente pentru munca noastră obișnuită sau vrem doar să vedem raportul pentru acel moment și mai târziu este posibil să trebuiască să ștergem acele fișiere.
Ștergerea manuală a acestor fișiere va dura mult timp sau este posibil să uităm să salvăm și va ocupa spațiul de pe computerul nostru. Vă vom arăta cum să ștergeți aceste fișiere cu coduri VBA simple.
Metoda Kill pentru a șterge fișierele dintr-un folder folosind codul VBA
O funcție simplă KILL va șterge folderul, fișierul specific, toate fișierele Excel etc. Aruncați o privire la sintaxa metodei KILL din VBA. Metoda Kill nu poate șterge fișierele numai în citire.
Nume cale : numele căii nu este altceva decât calea folderului din computer pentru a șterge fișierele.
Notă: numele căii poate include și caractere wildcard. Putem folosi un asterisc (*) și semne de întrebare (?) Ca caractere wildcard în Excel.
Asteriscul (*) este util pentru a se potrivi cu orice șir de orice lungime, chiar și zero.
Semnul de întrebare (?) Este util pentru a se potrivi doar cu un singur caracter.
Ștergeți numele fișierului special
De exemplu, am un dosar ca mai jos.
În acest dosar, vreau să șterg fișierul numit „Fișier 5”. Porniți codul cu funcția KILL.
Cod:
Sub Delete_Files () Kill (PathName) End Sub
Copiați și lipiți calea folderului.
Și lipiți ghilimele duble.
Omoară „E: \ Excel Files”
Acum puneți încă o bară înapoi (\) și introduceți numele fișierului cu extensie.
Omoară „E: \ Excel Files \ File5.xlsx”
Când rulați acest cod, acesta va șterge fișierul denumit „Fișier 5.xlsx” în calea folderului menționat.
Ștergeți toate fișierele Excel
Pentru a șterge toate fișierele Excel din folder folosind VBA, trebuie să folosim caractere wildcard cu funcția KILL. După ce menționăm calea folderului, trebuie să menționăm fișierul ca „* .xl *”
Cod:
Omoară „E: \ Excel Files \ *. Xl *”
Când rulați acest cod, acesta va șterge toate fișierele Excel din folder.
Am văzut cum putem șterge un singur fișier Excel și toate fișierele Excel. Dar dacă vrem să ștergem toate fișierele din folder, cum o putem șterge. Deoarece folosim Excel VBA, poate șterge alte fișiere?
Raspunsul este da!!! Utilizați codul de mai jos pentru a șterge toate fișierele din folder.
Cod:
Omoară „E: \ Excel Files \ *. *”
Ștergeți numai întregul folder
Este posibil să ștergeți întregul folder în sine?
Da, este posibil.
Pentru a face acest lucru, primul lucru pe care trebuie să-l facem este să ștergem toate fișierele din folder folosind funcția KILL, iar apoi pentru a șterge folderul trebuie să folosim încă o funcție numită RmDir .
Cod:
RmDir "E: \ Excel Files \"
Aici RmDir va șterge doar folderul gol, dacă există vreun subfolder, nu le poate șterge.
Ștergeți toate fișierele text din folder
Pentru a șterge toate fișierele text din folder, utilizați codul de mai jos.
Cod:
Ucideți „E: \ Excel Files \ *. Txt”
Ștergeți fișierele numai în citire
După cum am spus, funcția KILL nu poate șterge fișierele „Doar citire” din folder. Într-un astfel de scenariu, trebuie să folosim celelalte două funcții „Dir $” și „SetAttr”. Mai jos este exemplul de cod pentru a șterge și fișierele numai în citire.
Cod:
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