如何在VBA中批量转换文件名：将指定“-”替换为括号“()”？

根据提供的文件名转换示例，核心需求是：将文件名中**最后一个“-”**替换为左括号“(”，并在文件扩展名前添加右括号“)”，同时兼容原文件名已包含括号的特殊场景。

方案一：批量处理文件夹中的文件 #

以下代码可直接遍历指定文件夹下的所有文件，自动完成重命名：

Sub RenameFilesWithBrackets()
    Dim folderPath As String
    Dim fileName As String
    Dim newFileName As String
    Dim lastDashPos As Integer
    Dim extPos As Integer
    
    ' 修改为你的目标文件夹路径
    folderPath = "C:\Your\Target\Folder\"
    If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
    
    fileName = Dir(folderPath & "*.*")
    Do While fileName <> ""
        ' 跳过文件夹和系统隐藏文件
        If Not (GetAttr(folderPath & fileName) And vbDirectory) Then
            extPos = InStrRev(fileName, ".")
            If extPos > 0 Then
                lastDashPos = InStrRev(fileName, "-")
                ' 确保“-”在扩展名之前
                If lastDashPos > 0 And lastDashPos < extPos Then
                    ' 处理已带括号的特殊情况（如4715-(0).jpg）
                    If Mid(fileName, lastDashPos + 1, 1) = "(" Then
                        newFileName = Left(fileName, lastDashPos - 1) & Mid(fileName, lastDashPos + 1)
                    Else
                        ' 常规替换逻辑
                        newFileName = Left(fileName, lastDashPos - 1) & "(" & _
                                    Mid(fileName, lastDashPos + 1, extPos - lastDashPos - 1) & ")" & _
                                    Mid(fileName, extPos)
                    End If
                    ' 避免重名覆盖
                    If Dir(folderPath & newFileName) = "" Then
                        Name folderPath & fileName As folderPath & newFileName
                    Else
                        Debug.Print "跳过重名文件：" & newFileName
                    End If
                End If
            End If
        End If
        fileName = Dir
    Loop
    MsgBox "批量重命名完成！"
End Sub

代码关键点 #

• InStrRev：从字符串末尾反向查找，精准定位最后一个“-”和扩展名的位置
• 特殊场景兼容：自动识别并处理原文件名已包含括号的情况，直接去除多余的“-”
• 安全校验：重命名前检查是否存在同名文件，避免数据覆盖

方案二：处理Excel单元格中的文件名列表 #

如果你的三千条文件名记录存储在Excel中，可使用以下自定义函数批量生成目标文件名：

Function ConvertFileName(oldName As String) As String
    Dim lastDashPos As Integer
    Dim extPos As Integer
    
    extPos = InStrRev(oldName, ".")
    ' 无扩展名的文件直接返回原名称
    If extPos = 0 Then
        ConvertFileName = oldName
        Exit Function
    End If
    
    lastDashPos = InStrRev(oldName, "-")
    If lastDashPos > 0 And lastDashPos < extPos Then
        If Mid(oldName, lastDashPos + 1, 1) = "(" Then
            ConvertFileName = Left(oldName, lastDashPos - 1) & Mid(oldName, lastDashPos + 1)
        Else
            ConvertFileName = Left(oldName, lastDashPos - 1) & "(" & _
                            Mid(oldName, lastDashPos + 1, extPos - lastDashPos - 1) & ")" & _
                            Mid(oldName, extPos)
        End If
    Else
        ConvertFileName = oldName
    End If
End Function

使用方法 #

1. 按Alt+F11打开VBA编辑器
2. 插入模块，粘贴上述函数代码
3. 返回Excel，在目标单元格（如B1）输入=ConvertFileName(A1)，下拉填充即可批量生成结果

示例验证 #

将提供的示例文件名代入函数，均能得到符合要求的结果：

内容的提问来源于stack exchange，提问作者roy