I VBA kan vi slette alle filer som er til stede på datamaskinen ved hjelp av VBA-koder, og koden som brukes til å slette en fil er kjent som Kill-kommandoen. Metoden for å slette en fil er den første, vi gir banen til filen som betyr hvor filen ligger i datamaskinen, og deretter bruker vi kommandoen Kill for å slette filen.
Hvordan sletter jeg filer med VBA-kode?
VBA er en tøff ting i begynnelsen, men når du bruker mer tid med VBA, vil du begynne å elske det akkurat som meg. Vi kan åpne filer fra en annen mappe på en datamaskin, vi kan jobbe med dem, og nå kan vi også slette filer ved å bruke VBA-koding. I denne artikkelen vil vi vise deg hvordan du kan slette filer ved hjelp av VBA-kode i den spesifikke mappen.
Når vi jobber med store prosjekter, lager vi vanligvis mange mellomfiler for å støtte prosessen vår. Når alt arbeidet er gjort, må vi slette disse filene for å unngå enhver form for forvirring i fremtiden.
Og et scenario er når vi vanligvis mottar en e-post. Vi lagrer vedlegg for vårt vanlige arbeid, eller vi vil bare se rapporten for det tidspunktet, og senere må vi kanskje slette disse filene.
Det kan ta tid å slette disse filene manuelt, ellers glemmer vi å lagre, og det vil oppta plassen på datamaskinen vår. Vi viser deg hvordan du sletter disse filene med enkle VBA-koder.
Drep metoden for å slette filer i en mappe ved hjelp av VBA-kode
En enkel KILL-funksjon vil slette mappen, den spesifikke filen, alle excel-filer osv. Ta en titt på syntaksen til KILL-metoden i VBA. Drepsmetoden kan ikke slette skrivebeskyttede filer.
Banenavn: banenavn er ikke annet enn mappebanen på datamaskinen for å slette filene.
Merk: Banenavn kan også inneholde jokertegn. Vi kan bruke en stjerne (*) og spørsmålstegn (?) Som jokertegn i Excel.
Asterisk (*) er nyttig for å matche alle strenger av hvilken som helst lengde, til og med null regnes som.
Spørsmålstegn (?) Er nyttig for å matche bare ett tegn.
Slett bestemt filnavn
For eksempel har jeg en mappe som nedenfor.
I denne mappen vil jeg slette filen "File 5". Start koden med KILL-funksjonen.
Kode:
Sub Delete_Files () Drep (PathName) Slutt Sub
Kopier og lim inn mappestien.
Og lim inn to anførselstegn.
Drep "E: Excel Files"
Sett nå en skråstrek til () og skriv inn filnavnet med utvidelsen.
Drep "E: Excel Files File5.xlsx"
Når du kjører denne koden, vil den slette filen med navnet "File 5.xlsx" i den nevnte mappebanen.
Slett alle Excel-filer
For å slette alle excel-filene i mappen ved hjelp av VBA, må vi bruke jokertegn med KILL-funksjonen. Etter å ha nevnt mappebanen, må vi nevne filen som "* .xl *."
Kode:
Drep "E: Excel Files *. Xl *"
Når du kjører denne koden, vil dette slette alle excel-filene i mappen.
Vi har sett hvordan vi kan slette en enkelt Excel-fil og alle Excel-filene. Men hvis vi vil slette alle filene i mappen, hvordan kan vi slette den. Siden vi bruker Excel VBA, kan den slette andre filer?
Svaret er ja !!! Bruk koden nedenfor for å slette alle filene i mappen.
Kode:
Drep "E: Excel Files *. *"
Slett bare hele mappen
Er det mulig å slette hele mappen selv?
Ja det er mulig.
For å gjøre dette, er det første vi trenger å gjøre, at vi må slette alle filene i mappen ved å bruke KILL-funksjonen og deretter å slette mappen, og vi må bruke en annen funksjon som heter RmDir .
Kode:
RmDir "E: Excel Files "
Her vil RmDir bare slette den tomme mappen hvis en undermappe er der den ikke kan slette dem.
Slett alle tekstfilene i mappen
For å slette alle tekstfilene i mappen, bruk koden nedenfor.
Kode:
Drep "E: Excel Files *. Txt"
Slett skrivebeskyttede filer
Som jeg sa, kan ikke KILL-funksjonen slette "Read Only" -filer i mappen. I et slikt tilfelle må vi bruke de to andre funksjonene "Dir $" og "SetAttr" -funksjonene. Nedenfor er eksempelkoden for å slette de skrivebeskyttede filene også.
Kode:
Sub Delete_Files1 () Dim DeleteFile As String DeleteFile = "E: Excel Files " Hvis Len (Dir $ (DeleteFile))> 0 Sett Setttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
Du kan laste ned denne VBA Delete File Excel-malen herfra - VBA Delete File Excel Template.
