Î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 la fel ca 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 s-a făcut toată munca, trebuie să ștergem acele fișiere pentru a evita orice fel de confuzie în viitor.
Și un scenariu este atunci când de obicei primim 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 putem uita 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ă: Calea 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 este considerat.
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 folder, 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 ghilimelele 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 numit „Fișier 5.xlsx” din 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 dosar, 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?
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 și apoi să ștergem folderul și trebuie să folosim încă o funcție numită RmDir .
Cod:
RmDir "E: Excel Files "
Aici RmDir va șterge doar folderul gol dacă un subfolder este acolo unde 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 „Numai 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 " Dacă Len (Dir $ (DeleteFile))> 0 Apoi SetAttr DeleteFile, vbNormal Kill DeleteFile End Dacă End Sub
Puteți descărca acest șablon Excel de ștergere a fișierului VBA de aici - Șablon ștergere fișier Excel VBA.
