A VBA-ban a számítógépen található fájlokat törölhetjük VBA-kódokkal, és a fájlok törléséhez használt kódot Kill parancsnak nevezzük. A fájlok törlésének módja az, hogy először a fájl elérési útját adjuk meg, ami azt jelenti, a fájl a számítógépen található, majd a Kill paranccsal töröljük a fájlt.
Hogyan lehet fájlokat törölni a VBA kód segítségével?
A VBA az elején nehéz dolog, de mivel több időt töltesz a VBA-val, úgy szeretsz szeretni, mint én. Megnyithatunk fájlokat a számítógép másik mappájából, dolgozhatunk velük, és most a VBA kódolással fájlokat is törölhetünk. Ebben a cikkben megmutatjuk, hogyan törölheti a fájlokat az adott mappában található VBA kód segítségével.
Ha nagy projektekkel dolgozunk, általában sok köztes fájlt hozunk létre a folyamatunk támogatása érdekében. Az összes munka elvégzése után törölnünk kell ezeket a fájlokat, hogy elkerüljük a jövőbeni bármilyen zavart.
És az egyik forgatókönyv az, amikor általában e-mailt kapunk. Mellékleteket mentünk a szokásos munkánkhoz, vagy csak meg akarjuk tekinteni a jelentést az adott időpontra vonatkozóan, és később előfordulhat, hogy ezeket a fájlokat törölnünk kell.
Ezeknek a fájloknak a manuális törlése időbe telik, vagy elfelejthetjük a mentést, és elfoglalja a helyet a számítógépünkön. Megmutatjuk, hogyan törölheti ezeket a fájlokat egyszerű VBA kódokkal.
Ölési módszer a mappában lévő fájlok törléséhez a VBA kód használatával
Egy egyszerű KILL funkció törli a mappát, egy adott fájlt, az összes Excel fájlt stb. Vessen egy pillantást a VILL KILL metódusának szintaxisára. A kill módszer nem tud csak olvasható fájlokat törölni.
Útvonal neve: az elérési út nem más, mint a számítógépen található mappaútvonal a fájlok törléséhez.
Megjegyzés: Az útvonalnév tartalmazhat helyettesítő karaktereket is. Használhatunk csillagot (*) és kérdőjeleket (?) Helyettesítő karakterként az excelben.
A csillag (*) hasznos bármilyen hosszúságú húr megfeleltetésére, még nulla is.
A kérdőjel (?) Csak egyetlen karakter egyezéséhez hasznos.
Adott fájlnév törlése
Például van egy mappám, mint az alábbiak.
Ebben a mappában törölni akarom a „File 5” nevű fájlt. Indítsa el a kódot a KILL funkcióval.
Kód:
Sub Delete_Files () Kill (PathName) End Sub
Másolja és illessze be a mappa elérési útját.
És illessze be dupla idézőjelbe.
Öld meg az "E: Excel Files"
Most tegyen még egy perjelet (), és írja be a fájl nevét kiterjesztéssel.
Öld meg az "E: Excel Files File5.xlsx" fájlt
Amikor futtatja ezt a kódot, a fájl törli a „File 5.xlsx” nevű fájlt az említett mappaútvonalból.
Az összes Excel fájl törlése
A mappa összes excel fájljának VBA használatával történő törléséhez helyettesítő karaktereket kell használnunk a KILL funkcióval. A mappa elérési útjának megemlítése után meg kell említenünk a fájlt „* .xl *” néven.
Kód:
Öld meg az "E: Excel Files *. Xl *"
Amikor futtatja ezt a kódot, ez törli az összes excel fájlt a mappából.
Láttuk, hogyan törölhetünk egyetlen Excel fájlt és minden Excel fájlt. De ha törölni akarjuk a mappa összes fájlját, hogyan törölhetjük. Mivel Excel VBA-t használunk, törölhet más fájlokat?
A válasz igen!!! Az alábbi kód segítségével törölheti a mappa összes fájlját.
Kód:
Öld meg az "E: Excel Files *. *"
Csak a teljes mappa törlése
Lehetséges törölni magát a teljes mappát?
Igen, lehetséges.
Ehhez az első dolog, amit meg kell tennünk, hogy a KILL függvény segítségével törölni kell a mappa összes fájlját, majd törölni kell a mappát, és még egy RmDir nevű függvényt kell használnunk .
Kód:
RmDir "E: Excel Files "
Itt az RmDir csak az üres mappát törli, ha olyan almappát talál, ahol nem tudja törölni.
Az összes szövegfájl törlése a mappából
A mappában található összes szövegfájl törléséhez használja az alábbi kódot.
Kód:
Öld meg az "E: Excel Files *. Txt"
Csak olvasható fájlok törlése
Mint mondtam, a KILL funkció nem tudja törölni a „Csak olvasható” fájlokat a mappából. Ilyen esetben a másik két „Dir $” és „SetAttr” függvényt kell használnunk. Az alábbiakban bemutatjuk a csak olvasható fájlok törléséhez szükséges példakódot.
Kód:
Sub Delete_Files1 () Dim DeleteFile As String DeleteFile = "E: Excel Files " Ha Len (Dir $ (DeleteFile))> 0, akkor SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
Innen töltheti le ezt a VBA fájl törlése Excel sablont - VBA fájl törlése Excel sablont.
