Как проверить, существует ли файл в папке, а затем удалить его в 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\сохранить вложения\aaa.xlsx это путь к файлу, который вы хотите проверить, существует ли он. В этом примере я хочу проверить, является ли файл Excel с именем «ааа” существует в папке с именем “сохранить вложения» на рабочем столе. Вы можете изменить путь к файлу и расширение файла в соответствии с вашими потребностями.
3. нажмите F5 ключ для запуска кода.
4. Если файл существует, вы получите Kutools for Excel диалоговое окно, как показано на скриншоте ниже. Щелкните OK кнопку, чтобы удалить этот файл из папки.
Если файл не существует в папке, другой Kutools for Excel диалоговое окно также появится, чтобы предупредить вас.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!