用于重命名包含损坏文件的文件夹中的工作簿的VBA

Sub RenameFilesInFolder()
    Dim FolderPath As String
    Dim FileName As String
    Dim NewFileName As String
    
    ' 设置文件夹路径
    FolderPath = "C:\YourFolderPath\"
    
    ' 循环遍历文件夹中的所有文件
    FileName = Dir(FolderPath & "*.xlsx")
    Do While FileName <> ""
        ' 检查文件是否损坏
        If IsWorkbookCorrupted(FolderPath & FileName) Then
            ' 生成新的文件名
            NewFileName = "Corrupted_" & FileName
            
            ' 重命名文件
            Name FolderPath & FileName As FolderPath & NewFileName
        End If
        
        ' 获取下一个文件
        FileName = Dir
    Loop
End Sub

Function IsWorkbookCorrupted(FilePath As String) As Boolean
    Dim wb As Workbook
    
    On Error Resume Next
    ' 尝试打开工作簿
    Set wb = Workbooks.Open(FilePath)
    On Error GoTo 0
    
    ' 检查工作簿是否损坏
    If wb Is Nothing Then
        IsWorkbookCorrupted = True
    Else
        IsWorkbookCorrupted = False
        wb.Close SaveChanges:=False
    End If
End Function