vba批量修改excel文件名
时间: 2023-07-26 13:33:57 浏览: 78
您可以使用以下VBA代码批量修改Excel文件名:
```
Sub RenameFiles()
Dim MyPath As String, MyName As String, NewName As String
Dim MyFiles As String
Dim i As Integer
'设置文件路径
MyPath = "C:\Users\UserName\Desktop\ExcelFiles\"
'获取文件夹中的所有文件名
MyFiles = Dir(MyPath & "*.xlsx")
'循环遍历文件夹中的每个文件
Do While MyFiles <> ""
'获取文件名
MyName = MyFiles
'设置新的文件名
NewName = "New_" & MyName
'重命名文件
Name MyPath & MyName As MyPath & NewName
'获取下一个文件名
MyFiles = Dir
Loop
End Sub
```
在代码中,您需要更改 `MyPath` 变量的值以指定您要重命名的文件所在的文件夹路径。此外,您还可以更改 `NewName` 变量的值以指定新文件名的前缀或后缀。
请注意,此代码仅适用于以 `.xlsx` 扩展名结尾的Excel文件。如果您的文件类型不同,请将代码中的 `.xlsx` 更改为适当的文件扩展名。