创建一个宏来删除某些标记为“已批准”的文件

Question

试图创建一个宏来删除在 Excel 电子表格中被归类为“已批准”的某些文件。如果他们未获批准，我想跳过该文件并转到下一个。我希望删除的文件位于主目录中的子文件夹中。

我根据一些谷歌搜索整理了一个宏，但它不起作用。现在，当我运行宏时，没有任何反应。没有错误消息，也没有删除任何文件。我对学习宏还很陌生，但我想知道我错过了什么。

Sub delete_Approved_files()
Const path = "C:\Users\username\Downloads\Test Files”
Dim r As Range

Set r = Cells(1, 1)
Do Until r = ""
    If UCase(r.Value) = "Approved" Then
        If Dir(path & r.Offset(0, 1)) <> "" Then ' Does the file exist?
            Kill path & r.Offset(0, 1)
        End If
    End If
    Set r = r.Offset(1, 0)
Loop

End Sub

Answer 1

在以 Const path 开头的行中，将“用户名”替换为您的实际计算机用户名。它应该以 \ 和适当的 " 标记结尾

"C:\Users\Erkuh\Downloads\Test Files\"

If UCase(r.Value) = "Approved" Then

行将始终为 false，因为“已批准”不是大写字符串。改成：

If UCase(r.Value) = "APPROVED" Then