seychellesartprojects.org

VBA-s saame kustutada kõik arvutis olevad failid VBA-koodide abil ja faili kustutamiseks kasutatav kood on tuntud kui käsk Kill. Faili kustutamise meetod on see, et esitame kõigepealt faili tee, mis tähendab, kus fail asub arvutis ja seejärel kasutame faili kustutamiseks käsku Kill.

Kuidas kustutada faile VBA-koodi abil?

VBA on alguses karm asi, kuid kui veedad VBA-ga rohkem aega, hakkad seda armastama nagu mina. Saame faile avada arvuti teisest kaustast, saame nendega töötada ja nüüd saame ka failid kustutada, kasutades VBA-kodeeringut. Selles artiklis näitame teile, kuidas saate faile kustutada konkreetse kausta VBA-koodi abil.

Suurte projektidega töötades loome oma protsessi toetamiseks tavaliselt palju vahefaile. Pärast kogu töö tegemist peame need failid kustutama, et tulevikus igasugust segadust vältida.

Ja üks stsenaarium on see, kui tavaliselt saame meili, salvestame manused oma tavapärase töö jaoks või tahame lihtsalt aruannet sellel ajahetkel näha ja hiljem peame võib-olla need failid kustutama.

Nende failide käsitsi kustutamine võtab aega või võime unustada salvestamise ja see võtab meie arvutis ruumi. Näitame teile, kuidas neid faile lihtsate VBA-koodidega kustutada.

Tapa meetod kaustast failide kustutamiseks VBA-koodi abil

Lihtne funktsioon KILL kustutab kausta, konkreetse faili, kõik Exceli failid jne. Heitke pilk VBA KILL-i meetodi süntaksile. Tapmismeetodiga ei saa kirjutuskaitstud faile kustutada.

Tee nimi: faili kustutamiseks pole tee nimi ainult arvuti kaustatee.

Märkus. Tee nimi võib sisaldada ka metamärke. Excelis saate tärnimärki (*) ja küsimärke (?) Kasutada asendusmärkidena.

Tärn (*) on kasulik mis tahes pikkusega stringide sobitamiseks, isegi kui see on null.

Küsimärk (?) On kasulik ainult ühe märgi sobitamiseks.

Kustuta konkreetne failinimi

Näiteks mul on selline kaust nagu allpool.

Selles kaustas soovin kustutada faili nimega “File 5”. Käivitage kood funktsiooniga KILL.

Kood:

 Alam Kustuta_failid () Tapa (teekonna nimi) Lõpeta alam 

Kopeerige ja kleepige kausta tee.

Ja kleepige topelt jutumärkidesse.

Tapa "E: \ Exceli failid"

Pange nüüd veel üks kaldkriips (\) ja sisestage laiendiga failinimi.

Tapa "E: \ Exceli failid \ File5.xlsx"

Selle koodi käivitamisel kustutab see faili nimega “File 5.xlsx” mainitud kaustateel.

Kustutage kõik Exceli failid

Kõigi Exceli failide kustutamiseks kaustast VBA abil peame kasutama KILL-funktsiooniga metamärke. Pärast kaustatee mainimist peame mainima faili kui "* .xl *"

Kood:

Tapa "E: \ Exceli failid \ *. Xl *"

Selle koodi käivitamisel kustutatakse kõik kaustas olevad Exceli failid.

Oleme näinud, kuidas saab kustutada ühe Exceli faili ja kõik Exceli failid. Aga kui me tahame kustutada kõik kaustas olevad failid, kuidas me selle kustutame. Kuna kasutame Exceli VBA-d, kas see saab ka teisi faile kustutada?

Vastus on jah !!! Kõigi kaustas olevate failide kustutamiseks kasutage allolevat koodi.

Kood:

Tapa "E: \ Exceli failid \ *. *"

Kustuta ainult kogu kaust

Kas on võimalik kogu kaust ise kustutada?

Jah, see on võimalik.

Selleks peame kõigepealt kustutama kõik kaustas olevad failid funktsiooni KILL abil ja seejärel kausta kustutamiseks peame kasutama veel ühte funktsiooni nimega RmDir .

Kood:

RmDir "E: \ Exceli failid \"

Siin kustutab RmDir ainult tühja kausta, kui mõni alamkaust on olemas, ei saa ta neid kustutada.

Kustutage kõik kaustas olevad tekstifailid

Kõigi kaustas olevate tekstifailide kustutamiseks kasutage allolevat koodi.

Kood:

Tapa "E: \ Exceli failid \ *. Txt"

Kustuta kirjutuskaitstud failid

Nagu ma ütlesin, ei pea KILL-funktsioon kustutama kausta „Ainult lugemise” faile. Sellisel juhul peame kasutama kahte ülejäänud funktsiooni “Dir $” ja “SetAttr”. Allpool on näite kood ka kirjutuskaitstud failide kustutamiseks.

Kood:

 Sub Delete_Files1 () Tühjendage DeleteFile stringina DeleteFile = "E: \ Exceli failid \" Kui Len (Dir $ (DeleteFile))> 0, siis SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub 

Selle VBA Kustuta faili Exceli mall saate alla laadida siit - VBA Kustuta faili Exceli mall