VBA Dzēst failu Kā izdzēst mapē esošos failus, izmantojot VBA kodu?
VBA mēs varam izdzēst jebkuru datorā esošo failu, izmantojot VBA kodus, un kods, kas tiek izmantots jebkura faila dzēšanai, ir pazīstams kā Kill komanda, jebkura faila dzēšanas metode ir tā, ka vispirms mēs sniedzam faila ceļu, kas nozīmē, kur fails atrodas datorā, un pēc tam mēs izmantojam komandu Kill, lai izdzēstu failu.
Kā izdzēst failus, izmantojot VBA kodu?
VBA sākumā ir grūta lieta, bet, pavadot vairāk laika kopā ar VBA, jūs sākat to mīlēt tāpat kā es. Mēs varam atvērt failus no citas datora mapes, mēs varam strādāt ar tiem, un tagad mēs varam izdzēst arī failus, izmantojot VBA kodēšanu. Šajā rakstā mēs parādīsim, kā jūs varat izdzēst failus, izmantojot VBA kodu konkrētajā mapē.
Strādājot ar lieliem projektiem, mēs parasti izveidojam daudz starpfailu, lai atbalstītu mūsu procesu. Pēc visa paveiktā darba mums šie faili ir jāizdzēš, lai nākotnē izvairītos no jebkāda veida neskaidrībām.
Viens scenārijs ir tāds, ka parasti mēs saņemam e-pastu, kurā mēs saglabājam pielikumus savam parastajam darbam, vai arī mēs vienkārši vēlamies redzēt pārskatu par šo laika periodu, un vēlāk mums, iespējams, būs jāizdzēš šie faili.
Šo failu manuāla dzēšana prasīs laiku, vai arī mēs varam aizmirst saglabāt, un tas aizņems vietu mūsu datorā. Mēs parādīsim, kā izdzēst šos failus ar vienkāršiem VBA kodiem.
Kill metode mapes failu dzēšanai, izmantojot VBA kodu
Vienkārša KILL funkcija izdzēsīs mapi, konkrēto failu, visus Excel failus utt. Apskatiet VBA KILL metodes sintaksi. Kill metode nevar izdzēst tikai lasāmus failus.
Ceļa nosaukums: ceļa nosaukums nav nekas cits kā mapes ceļš datorā, lai izdzēstu failus.
Piezīme. Ceļa nosaukumā var būt arī aizstājējzīmes. Mēs varam izmantot zvaigznīti (*) un jautājuma zīmes (?) Kā aizstājējzīmes Excel.
Zvaigznīte (*) ir noderīga, lai saskaņotu jebkuru virkni ar jebkuru garumu, pat ja tiek uzskatīta nulle.
Jautājuma zīme (?) Ir noderīga, lai saskaņotu tikai vienu rakstzīmi.
Dzēst konkrētu faila nosaukumu
Piemēram, man ir tāda mape kā zemāk.
Šajā mapē es vēlos izdzēst failu ar nosaukumu “File 5”. Sāciet kodu ar funkciju KILL.
Kods:
Sub Delete_Files () Kill (PathName) End Sub
Nokopējiet un ielīmējiet mapes ceļu.
Un ielīmējiet divkāršās pēdiņās.
Nogalināt "E: \ Excel Files"
Tagad ielieciet vēl vienu slīpsvītru (\) un ievadiet faila nosaukumu ar paplašinājumu.
Nogalināt "E: \ Excel Files \ File5.xlsx"
Palaidot šo kodu, tas izdzēsīs failu ar nosaukumu “File 5.xlsx” minētajā mapes ceļā.
Dzēst visus Excel failus
Lai izdzēstu visus mapē esošos Excel failus, izmantojot VBA, mums jāizmanto aizstājējzīmes ar funkciju KILL. Pēc mapes ceļa pieminēšanas fails jāpiemin kā “* .xl *”
Kods:
Nogalināt "E: \ Excel faili \ *. Xl *"
Palaidot šo kodu, tas izdzēsīs visus mapē esošos Excel failus.
Mēs esam redzējuši, kā mēs varam izdzēst vienu Excel failu un visus Excel failus. Bet, ja mēs vēlamies izdzēst visus mapē esošos failus, kā mēs to varam izdzēst. Tā kā mēs izmantojam Excel VBA, vai tā var izdzēst citus failus?
Atbilde ir Jā !!! Izmantojiet zemāk esošo kodu, lai izdzēstu visus mapē esošos failus.
Kods:
Nogalināt "E: \ Excel faili \ *. *"
Dzēst tikai visu mapi
Vai ir iespējams izdzēst visu pašu mapi?
Jā, tas ir iespējams.
Lai to izdarītu, vispirms mums jādzēš visi mapē esošie faili, izmantojot funkciju KILL, un pēc tam, lai izdzēstu mapi, mums jāizmanto vēl viena funkcija, ko sauc par RmDir .
Kods:
RmDir "E: \ Excel faili \"
Šeit RmDir izdzēsīs tikai tukšo mapi, ja kāda apakšmape ir, tā tos nevar izdzēst.
Dzēst visus mapē esošos teksta failus
Lai izdzēstu visus mapē esošos teksta failus, izmantojiet zemāk esošo kodu.
Kods:
Nogalināt "E: \ Excel faili \ *. Txt"
Dzēst tikai lasāmus failus
Kā es teicu KILL funkcija, mapē nevar izdzēst tikai lasāmos failus. Šādā gadījumā mums jāizmanto divas citas funkcijas “Dir $” un “SetAttr”. Zemāk ir koda piemērs, lai izdzēstu arī tikai lasāmos failus.
Kods:
Sub Delete_Files1 () Dim DeleteFile kā virkne DeleteFile = "E: \ Excel Files \" Ja Len (Dir $ (DeleteFile))> 0, tad SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
Šo VBA Delete File Excel veidni varat lejupielādēt šeit - VBA Delete File Excel Template
