如何检查文件夹中是否存在某个文件并在Excel中删除它？

在本教程中，您将学习一个VBA脚本，用于检查指定文件夹中是否存在某个文件，如果存在，则从Excel中的文件夹中删除它。

使用VBA代码检查文件夹中是否存在某个文件并删除它

以下VBA脚本可帮助检查文件夹中是否存在某个文件，并在存在时删除它。请按照以下步骤操作。

1. 在打开的Excel工作簿中，按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块，然后将以下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 是要检查其是否存在的文件路径。在此示例中，我想检查桌面上名为“save attachments”的文件夹中是否存在名为“aaa”的Excel文件。您可以根据需要更改文件路径和文件扩展名。

3. 按 F5 键运行代码。

4. 如果文件存在，您将看到如下面截图所示的 Kutools for Excel 对话框。点击 确定 按钮以从文件夹中删除该文件。

如果文件夹中不存在该文件，另一个 Kutools for Excel 对话框也会弹出以提醒您。