VBA批量修改文件名

VBA（Visual Basic for Applications）是Microsoft Office应用程序内嵌的一种宏语言，可以用来自动化Office任务。如果你想通过VBA批量修改文件名，你可以编写一段脚本来遍历指定目录下的文件，并按照特定规则更改它们的名称。以下是一个简单的步骤指导：

1. **打开VBA编辑器**：在Excel、Word或PowerPoint等程序中，选择“开发者”选项卡（如果隐藏的话，需从视图菜单中启用），然后点击“Visual Basic”。

2. **创建新模块**：在VBA编辑器中，你会看到一个空白的工作区。右键点击“插入”，选择“模块”来创建一个新的VBA代码区域。

3. **编写代码**：

Sub RenameFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim newName As String ' 新的文件名

    ' 设置需要操作的文件夹路径
    folderPath = "C:\YourFolder\" ' 指定你的文件夹路径

    ' 遍历文件夹中的所有文件
    For Each fileName In Application.GetDirectories(folderPath & "*.txt") ' 这里假设你要改的是.txt类型的文件
        ' 创建新的文件名，这里只是一个示例，实际可以根据需求调整
        newName = Replace(fileName, ".txt", "_NewName.txt")

        ' 执行文件重命名
        Call Shell("ren """ & fileName & """ """ & newName & """, vbNormalFocus")
        ' 或者使用 FileSystemObject 更精细地控制
        ' Dim fso As Object
        ' Set fso = CreateObject("Scripting.FileSystemObject")
        ' fso.MoveFile fileName, newName
    Next fileName
End Sub

4. **运行脚本**：保存代码后，按F5或点击工具栏上的"运行"按钮执行`RenameFiles`宏。

注意：这个例子假设你的目标文件夹结构简单，只有一级子目录。如果有多层目录，可能需要递归处理。此外，批量修改文件名前最好做好备份，以防万一。