excel表格问了如何重定名

1.Excel 请问奈何用VBA重定名文件

Sub 修改文件名（）

On Error Resume Next

原文件名 = "D：\后果\高一第一学期后果.xls"

新文件名 = "D：\后果\高中学期后果.xls"

Name 原文件名 As 新文件名

MsgBox "文件修改乐成"

End Sub

'已测试通过''说明：本例是将D盘根目次下的 后果文件夹中 的 高一第一学期后果.xls名 修改成 高中学期后果.xls.

'对付其它名目标文件同样合用'

0分？算了已经进来了假如这些xls需要取的事情表名是一样的，好比都是Sheet1，可以先在cmd下进入那些xls目次，用dir /b > list.xt将文件名列表输出到list.txt中，打开这个list.txt，内容大概是Book1.xlsbook2.xlsbook3.xls打开Word，将^p替换为]sheet1!A1^p=[，替换完后编辑一下第一行，将内容改为如下：=[Book1.xls]sheet1!a1=[Book2.xls]sheet1!a1=[Book3.xls]sheet1!a1打开EXCEL，生存一下，留意要生存时要跟你的那些excel生存在一个目次下，名字随便，把第一步的文件名贴到excel里，假定在A列，将上面Word替换出来的内容放到B列（贴完之后就可以看到单位格内容已经被取出了），在C1写公式="ren ""文件路径" & a1 & """ """ & b1 & a1 & """"在C1向下填充就可以了，然后把C列内容复制到记事本里，生存为.bat文件，将本来的要更名的xls备份一下，运行这个bat就可以了。