Excel 请问怎样用VBA重命名文件

发布网友发布时间：2022-05-01 02:00

我来回答

共2个回答

热心网友时间：2022-06-23 19:12

1、首先我们打开一个工作样表作为例子。

2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub rename() Name "<工作簿路径>\<旧名称>.xls" As "<工作簿路径>\<新名称>.xls"End Sub。

3、我们知道在excel中保存一个文件为另一个文件时可以重新命名，save as 就是本例中as 代码的作用。name是命名函数，所以name as 就是将文件重命名。

4、不过需要注意的是，name改名修改的文件是未打开文件，如果是打开的文件直接运行代码的话，程序会报错。

5、文件的名称需要使用双引号包括起来，需要填写完整的路径和文件名称，包括文件的后缀名。大家需要注意文件的后缀名是需要通过系统设置来显示的。

6、最后，使用name重命名文件只要是符合未打开这一要素，就可以改名任何文件，包括但不限于excel的文件。当然后缀也可以修改，但是会以默认的关联程序打开。

热心网友时间：2022-06-23 19:12

Sub 修改文件名()

    On Error Resume Next
    原文件名 = "D:\成绩\高一第一学期成绩.xls"
    新文件名 = "D:\成绩\高中学期成绩.xls"
    Name 原文件名 As 新文件名
    MsgBox "文件修改成功"

End Sub
'已测试通过'

'说明:本例是将D盘根目录下的成绩文件夹中的高一第一学期成绩.xls名修改成高中学期成绩.xls.

'对于其它格式的文件同样适用'