VBA修改文件名

Sub 修改文件名()

On Error Resume Next

原文件名 = "D:\成绩\高一第一学期成绩.xls"

新文件名 = "D:\成绩\高中学期成绩.xls"

Name 原文件名 As 新文件名

MsgBox "文件修改成功"

End Sub

'已测试通过'