Sub 修改文件名()
On Error Resume Next
原文件名 = "D:\成绩\高一第一学期成绩.xls"
新文件名 = "D:\成绩\高中学期成绩.xls"
Name 原文件名 As 新文件名
MsgBox "文件修改成功"
End Sub
'已测试通过'