excel - 根据文件重命名更改单元格

Question

第一个问题在这里。我正在学习 VBA 并尝试将其用于实际工作。

我有大量的 zip 文件，每个 zip 文件中都有一个需要提取和重命名的特定文件。我使用 Excel 列出这些文件并自动为我重命名它们。但是，文件或 zip 通常并不总是存在。

如何让 Excel (VBA) 更改无法成功重命名文件的单元格的颜色？

这是我当前的代码：

Sub RenameCNotes()

    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False

        If .Show = -1 Then
            selectDirectory = .SelectItems(1)
            dFileList = Dir(selectDirectory & Application.PathSeparator & “*”)

            Do Until dFileList = “”
                curRow = 0
                On Error Resume Next
                If curRow > 0 Then
                    Name selectDirectory & Application.PathSeparator & dFileList As _
                    selectDirectory & Application.PathSeparator & Cells(curRow, “D”).Value
                End If

                dFileList = Dir
            Loop
        End If
    End With
End Sub