I VBA kan vi slette enhver fil, der er til stede på computeren ved hjælp af VBA-koder, og koden, der bruges til at slette en fil, er kendt som Kill-kommandoen, metoden til at slette enhver fil er den første, vi giver stien til filen, hvilket betyder hvor filen er placeret på computeren, og derefter bruger vi kommandoen Kill til at slette filen.
Sådan slettes filer ved hjælp af VBA-kode?
VBA er en hård ting i starten, men når du bruger mere tid med VBA, vil du begynde at elske det ligesom mig. Vi kan åbne filer fra en anden mappe på en computer, vi kan arbejde med dem, og nu kan vi også slette filer ved hjælp af VBA-kodning. I denne artikel viser vi dig, hvordan du kan slette filer ved hjælp af VBA-kode i den specifikke mappe.
Når vi arbejder med store projekter, opretter vi normalt mange mellemfiler, der understøtter vores proces. Når alt arbejdet er gjort, skal vi slette disse filer for at undgå enhver form for forvirring i fremtiden.
Og et scenarie er, når vi normalt modtager en e-mail. Vi gemmer vedhæftede filer til vores regelmæssige arbejde, eller vi vil bare se rapporten for det tidspunkt, og senere skal vi muligvis slette disse filer.
Sletning af disse filer manuelt tager tid, eller vi glemmer måske at gemme, og det optager pladsen på vores computer. Vi viser dig, hvordan du sletter disse filer med enkle VBA-koder.
Dræb metode til at slette filer i en mappe ved hjælp af VBA-kode
En simpel KILL-funktion sletter mappen, den specifikke fil, alle excel-filer osv. Se på syntaksen for KILL-metoden i VBA. Drabsmetoden kan ikke slette skrivebeskyttede filer.
Stienavn: stienavn er intet andet end mappestien på computeren til at slette filerne.
Bemærk: Stinavn kan også omfatte jokertegn. Vi kan bruge en stjerne (*) og spørgsmålstegn (?) Som jokertegn i Excel.
Asterisk (*) er nyttig til at matche enhver streng af enhver længde, selv nul betragtes.
Spørgsmålstegn (?) Er nyttigt at matche kun et enkelt tegn.
Slet bestemt filnavn
For eksempel har jeg en mappe som nedenfor.
I denne mappe vil jeg slette filen med navnet “File 5”. Start koden med KILL-funktionen.
Kode:
Sub Delete_Files () Dræb (PathName) End Sub
Kopier og indsæt mappestien.
Og indsæt dobbelt anførselstegn.
Dræb "E: Excel Files"
Sæt nu endnu en skråstreg () og indtast filnavnet med udvidelse.
Dræb "E: Excel Files File5.xlsx"
Når du kører denne kode, sletter den filen med navnet "File 5.xlsx" i den nævnte mappesti.
Slet alle Excel-filer
For at slette alle excel-filerne i mappen ved hjælp af VBA skal vi bruge jokertegn med KILL-funktionen. Efter at have nævnt mappestien skal vi nævne filen som "* .xl *."
Kode:
Dræb "E: Excel Files *. Xl *"
Når du kører denne kode, slettes alle excel-filerne i mappen.
Vi har set, hvordan vi kan slette en enkelt excel-fil og alle excel-filerne. Men hvis vi vil slette alle filerne i mappen, hvordan kan vi slette den. Da vi bruger Excel VBA, kan det slette andre filer?
Svaret er ja !!! Brug nedenstående kode til at slette alle filerne i mappen.
Kode:
Dræb "E: Excel Files *. *"
Slet kun hele mappen
Er det muligt at slette hele mappen?
Ja, det er muligt.
For at gøre dette er den første ting, vi skal gøre, at vi er nødt til at slette alle filerne i mappen ved hjælp af KILL-funktionen og derefter at slette mappen, og vi skal bruge endnu en funktion kaldet RmDir .
Kode:
RmDir "E: Excel Files "
Her sletter RmDir kun den tomme mappe, hvis en undermappe er, hvor den ikke kan slette dem.
Slet alle tekstfiler i mappen
Brug nedenstående kode for at slette alle tekstfiler i mappen.
Kode:
Dræb "E: Excel Files *. Txt"
Slet skrivebeskyttede filer
Som jeg fortalte kan KILL-funktionen ikke slette “Read Only” -filer i mappen. I et sådant tilfælde skal vi bruge de to andre funktioner "Dir $" & "SetAttr" -funktioner. Nedenfor er eksempelkoden til også at slette de skrivebeskyttede filer.
Kode:
Sub Delete_Files1 () Dim DeleteFile As String DeleteFile = "E: Excel Files " Hvis Len (Dir $ (DeleteFile))> 0 Sæt derefter SetAttr DeleteFile, vbNormalt Dræb DeleteFile End Hvis End Sub
Du kan downloade denne VBA Delete File Excel-skabelon herfra - VBA Delete File Excel-skabelon.
