Във VBA можем да изтрием всеки файл, присъстващ в компютъра, като използваме VBA кодове, а кодът, който се използва за изтриване на който и да е файл, е известен като команда Kill, методът за изтриване на всеки файл е, че първо, ние предоставяме пътя на файла, което означава къде файлът се намира в компютъра и след това използваме командата Kill, за да изтрием файла.
Как да изтрия файлове с помощта на VBA код?
VBA е трудно нещо в началото, но тъй като прекарвате повече време с VBA, ще започнете да го обичате точно като мен. Можем да отваряме файлове от друга папка на компютър, можем да работим с тях и сега можем да изтриваме файлове и с помощта на VBA кодиране. В тази статия ще ви покажем как можете да изтриете файлове с помощта на VBA код в конкретната папка.
Когато работим с големи проекти, обикновено създаваме много междинни файлове в подкрепа на нашия процес. След като свършим цялата работа, трябва да изтрием тези файлове, за да избегнем всякакво объркване в бъдеще.
И един от сценариите е, когато обикновено получаваме имейл. Запазваме прикачени файлове за нашата редовна работа или просто искаме да видим отчета за този момент от времето и по-късно може да се наложи да изтрием тези файлове.
Изтриването на тези файлове ръчно ще отнеме време или може да забравим да запазим и това ще заеме мястото на нашия компютър. Ще ви покажем как да изтриете тези файлове с прости VBA кодове.
Метод Kill за изтриване на файлове в папка с помощта на VBA код
Една проста функция KILL ще изтрие папката, конкретен файл, всички Excel файлове и др. Погледнете синтаксиса на метода KILL във VBA. Методът kill не може да изтрие файлове само за четене.
Име на пътя: името на пътя не е нищо друго освен пътя на папката в компютъра, за да изтриете файловете.
Забележка: Името на пътя може да включва и заместващи символи. Можем да използваме звездичка (*) и въпросителни знаци (?) Като заместващи знаци в Excel.
Звездичката (*) е полезна за съвпадение на всеки низ с произволна дължина, дори нула се счита.
Въпросният знак (?) Е полезен за съвпадение само на един знак.
Изтрийте конкретно име на файл
Например имам папка като по-долу.
В тази папка искам да изтрия файла с име „Файл 5“. Стартирайте кода с функцията KILL.
Код:
Sub Delete_Files () Kill (PathName) Край Sub
Копирайте и поставете пътя на папката.
И поставете в двойни кавички.
Убийте "E: Excel файлове"
Сега поставете още една наклонена черта () и въведете името на файла с разширение.
Убийте "E: Excel Files File5.xlsx"
Когато стартирате този код, той ще изтрие файла с име „File 5.xlsx“ в споменатия път на папката.
Изтрийте всички файлове на Excel
За да изтрием всички Excel файлове в папката с помощта на VBA, трябва да използваме заместващи символи с функцията KILL. След като споменем пътя на папката, трябва да споменем файла като „* .xl *.“
Код:
Убийте "E: Excel файлове *. Xl *"
Когато стартирате този код, това ще изтрие всички Excel файлове в папката.
Видяхме как можем да изтрием един файл на Excel и всички файлове на Excel. Но ако искаме да изтрием всички файлове в папката, как можем да го изтрием. Тъй като използваме Excel VBA, може ли да изтрие други файлове?
Отговорът е Да !!! Използвайте кода по-долу, за да изтриете всички файлове в папката.
Код:
Убийте "E: Excel файлове *. *"
Изтриване само на цялата папка
Възможно ли е да изтриете цялата папка?
Да, възможно е.
За да направите това, първото нещо, което трябва да направим, е да изтрием всички файлове в папката, като използваме функцията KILL и след това да изтрием папката, и трябва да използваме още една функция, наречена RmDir .
Код:
RmDir "E: Excel файлове "
Тук RmDir ще изтрие само празната папка, ако някоя подпапка е там, където не може да ги изтрие.
Изтрийте всички текстови файлове в папката
За да изтриете всички текстови файлове в папката, използвайте кода по-долу.
Код:
Убийте "E: Excel файлове *. Txt"
Изтриване на файлове само за четене
Както казах, функцията KILL не може да изтрие файловете само за четене в папката. В такъв случай трябва да използваме другите две функции "Dir $" и "SetAttr". По-долу е примерен код за изтриване и на файлове само за четене.
Код:
Sub Delete_Files1 () Dim DeleteFile As String DeleteFile = "E: Excel Files " If Len (Dir $ (DeleteFile))> 0 Тогава SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
Можете да изтеглите този шаблон за изтриване на файлове на VBA от тук - VBA Delete File Excel Template.
