I VBA kan vi slette enhver fil, der er til stede på computeren ved hjælp af VBA-koder, og den kode, 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 den hårde ting i starten, men når du bruger mere tid sammen med VBA, begynder du 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, gemmer vi vedhæftede filer til vores almindelige arbejde, eller vi vil bare se rapporten for det tidspunkt, og senere skal vi muligvis slette disse filer.
Det kan tage tid at slette disse filer manuelt, ellers glemmer vi 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. Kill-metoden kan ikke slette skrivebeskyttede filer.
Stienavn: stienavn er intet andet end mappestien på computeren til at slette filerne.
Bemærk: Stienavn 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 den fil, der hedder "File 5". Start koden med KILL-funktionen.
Kode:
Sub Delete_Files () Dræb (PathName) Afslut 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, slettes 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 skal vi slette en mappe ved at bruge endnu en funktion kaldet RmDir .
Kode:
RmDir "E: \ Excel Files \"
Her sletter RmDir kun den tomme mappe. Hvis der er nogen undermappe, kan den ikke slette dem.
Slet alle tekstfiler i mappen
For at slette alle tekstfiler i mappen skal du bruge nedenstående kode.
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\" 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