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

如何解决根据文件重命名更改单元格

这里的第一个问题。我正在学习 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