Как да проверите дали файл съществува в папка и след това да го изтриете в Excel?
В този урок ще научите VBA скрипт, за да проверите дали даден файл съществува в определена папка, ако съществува, след това го изтрийте от папката в Excel.
Проверете дали даден файл съществува в папка, след което го изтрийте в Excel с VBA код
Следният VBA скрипт помага да се провери дали определен файл съществува в папка и да се изтрие, ако съществува. Моля, направете следното.
1. В отворена работна книга на Excel натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, след което копирайте следния VBA скрипт в Модул (код) прозорец.
VBA код: Проверете дали даден файл съществува в определена папка, след което го изтрийте
Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
If Dir(FilePath) <> "" Then
MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
Kill FilePath
Else
If Dir(FilePath) = "" Then
MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
End If
End If
End Sub
Забележка: В кода на VBA, C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx е пътят на файла, който искате да проверите дали съществува. В този пример искам да проверя дали Excel файл с име „ааа” съществува в папка с име „запазване на прикачени файлове” на работния плот. Можете да промените пътя на файла и разширението на файла, за да отговарят на вашите нужди.
3. Натисни F5 ключ за изпълнение на кода.
4. Ако файлът съществува, ще получите a Kutools за Excel диалогов прозорец, както е показано на екранната снимка по-долу. Щракнете върху OK бутон, за да премахнете този файл от папката.
Ако файлът не съществува в папката, друг Kutools за Excel диалоговият прозорец също ще изскочи, за да ви предупреди.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!