Як перевірити, чи існує файл у папці, а потім видалити його в Excel?
У цьому підручнику ви дізнаєтесь про сценарій VBA, щоб перевірити, чи існує певний файл у вказаній папці, якщо він існує, видалити його з папки в Excel.
Перевірте, чи існує файл у папці, а потім видаліть його в Excel за допомогою коду VBA
Наступний сценарій VBA допомагає перевірити, чи існує певний файл у папці, і видалити його, якщо він існує. Будь ласка, зробіть наступне.
1. У відкритій книзі Excel натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, потім скопіюйте наведений нижче сценарій 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% та зменшує сотні клацань миші для вас щодня!