Как проверить наличие файла в папке и удалить его в Excel?
В этом руководстве вы познакомитесь с VBA-скриптом, который проверяет наличие определённого файла в указанной папке и удаляет его оттуда в Excel.
Проверка существования файла в папке и его удаление в Excel с помощью кода VBA
Следующий скрипт VBA проверяет, существует ли указанный файл в папке, и удаляет его, если он найден. Выполните следующие действия.
1. В открытой книге Excel нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль, затем скопируйте приведённый ниже скрипт VBA в окно Модуль (Код).
Module option« class=»mobile-first" />
Код 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 с именем «aaa» в папке «save attachments» на рабочем столе. Вы можете изменить путь к файлу и его расширение в соответствии со своими требованиями.
3. Нажмите клавишу F5, чтобы запустить код.
4. Если файл существует, появится диалоговое окно Kutools для Excel, как показано на снимке экрана ниже. Нажмите кнопку ОК, чтобы удалить этот файл из папки.
Если файл не существует в папке, появится другое диалоговое окно Kutools для Excel, чтобы уведомить вас об этом.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек