Vo VBA môžeme odstrániť akýkoľvek súbor prítomný v počítači pomocou kódov VBA a kód, ktorý sa používa na odstránenie ľubovoľného súboru, sa nazýva príkaz Zabiť. Metóda na odstránenie ľubovoľného súboru je taká, že najskôr poskytneme cestu k súboru, čo znamená, že kde súbor sa nachádza v počítači a potom pomocou príkazu Zabiť súbor odstránime.
Ako odstrániť súbory pomocou kódu VBA?
VBA je na začiatku ťažká vec, ale keď budete tráviť viac času s VBA, začnete ho milovať rovnako ako ja. Súbory môžeme otvárať z iného priečinka v počítači, môžeme s nimi pracovať a teraz môžeme súbory tiež mazať pomocou kódovania VBA. V tomto článku vám ukážeme, ako môžete mazať súbory pomocou kódu VBA v konkrétnom priečinku.
Keď pracujeme s veľkými projektmi, zvyčajne vytvoríme veľa prechodných súborov, ktoré podporia náš proces. Po vykonaní celej práce musíme tieto súbory odstrániť, aby sme v budúcnosti predišli akýmkoľvek nejasnostiam.
A jedným z scenárov je, keď zvyčajne dostaneme e-mail. Ukladáme prílohy pre našu bežnú prácu alebo si chceme iba pozrieť správu za daný čas a neskôr možno budeme musieť tieto súbory odstrániť.
Ručné vymazanie týchto súborov si bude vyžadovať čas, alebo môžeme zabudnúť na ich uloženie, a zaberie to miesto v našom počítači. Ukážeme vám, ako tieto súbory odstrániť pomocou jednoduchých kódov VBA.
Zabite metódu na odstránenie súborov v priečinku pomocou kódu VBA
Jednoduchá funkcia KILL vymaže priečinok, konkrétny súbor, všetky súbory programu Excel atď. Prezrite si syntax metódy KILL vo VBA. Metóda kill nemôže vymazať súbory iba na čítanie.
Názov cesty : cesta nie je nič iné ako cesta k priečinku v počítači na odstránenie súborov.
Poznámka: Názov cesty môže obsahovať aj zástupné znaky. Ako zástupné znaky v programe Excel môžeme použiť hviezdičku (*) a otázniky (?).
Hviezdička (*) je užitočná na priradenie ľubovoľného reťazca akejkoľvek dĺžky, zohľadňuje sa dokonca aj nula.
Otáznik (?) Je vhodný na priradenie iba jedného znaku.
Odstrániť konkrétny názov súboru
Mám napríklad priečinok ako nižšie.
V tomto priečinku chcem odstrániť súbor s názvom „Súbor 5“. Spustite kód funkciou KILL.
Kód:
Sub Delete_Files () Kill (PathName) End Sub
Skopírujte a prilepte cestu k priečinku.
A vložte do úvodzoviek.
Zabite „E: Excel Files“
Teraz vložte ešte jednu spätnú lomku () a zadajte názov súboru s príponou.
Zabite „E: Excel Files File5.xlsx“
Keď spustíte tento kód, vymaže sa súbor s názvom „File 5.xlsx“ v uvedenej ceste k priečinku.
Odstrániť všetky súbory programu Excel
Ak chcete odstrániť všetky súbory programu Excel v priečinku pomocou VBA, musíme použiť zástupné znaky s funkciou KILL. Po spomenutí cesty k priečinku musíme spomenúť súbor ako „* .xl *.“
Kód:
Zabite „E: Excel Files *. Xl *“
Keď spustíte tento kód, odstránia sa všetky súbory programu Excel v priečinku.
Videli sme, ako môžeme odstrániť jeden súbor programu Excel a všetky súbory programu Excel. Ak však chceme odstrániť všetky súbory v priečinku, ako to môžeme odstrániť. Pretože používame program Excel VBA, môže odstrániť ďalšie súbory?
Odpoveď je Áno !!! Použite nasledujúci kód na odstránenie všetkých súborov v priečinku.
Kód:
Zabite „E: Excel Files *. *“
Odstrániť iba celý priečinok
Je možné odstrániť celý samotný priečinok?
Áno, je to možné.
Aby sme to dosiahli, prvá vec, ktorú musíme urobiť, je musíme vymazať všetky súbory v priečinku pomocou funkcie KILL a potom priečinok vymazať a musíme použiť ešte jednu funkciu s názvom RmDir .
Kód:
RmDir "E: súbory Excel"
Tu RmDir vymaže iba prázdny priečinok, ak je akýkoľvek podpriečinok tam, kde ich nemôže vymazať.
Odstráňte všetky textové súbory v priečinku
Na odstránenie všetkých textových súborov v priečinku použite nasledujúci kód.
Kód:
Zabite „E: Excel Files *. Txt“
Odstráňte súbory iba na čítanie
Ako som povedal, funkcia KILL nemôže vymazať súbory „Iba na čítanie“ v priečinku. V takom prípade musíme použiť ďalšie dve funkcie „Dir $“ a „SetAttr“. Nižšie je uvedený príklad kódu na odstránenie súborov iba na čítanie.
Kód:
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
Túto šablónu programu Excel na odstránenie súboru VBA môžete stiahnuť odtiaľto - šablónu programu Excel na odstránenie súboru VBA.
