【Excel VBA】批量工作簿or文件重命名

1，

在【VBA常用小代码205：按指定条件批量删除Excel工作簿】我们分享了批量提取指定文件夹下工作簿名称的小代码，如下：

Sub ClBooks()    Dim p$, f$, k&    With Application.FileDialog(msoFileDialogFolderPicker)        If .Show Then p = .SelectedItems(1) Else: Exit Sub    End With    If Right(p, 1) '\' Then p = p & '\'    [a:b].ClearContents    k = 1    [a1] = '旧文件名'    [b1] = '新文件名'    f = Dir(p & '*.xls*')    Do While f ''        k = k 1        Cells(k, 1) = p & f        f = Dir    LoopEnd Sub

使用以上代码可以将指定文件夹下的工作簿名称提取到表格的A列。

2，

在表格的B列可以通过函数等方式对旧的名称进行批量更名，例如在工作簿名称前面增加“五月天”三个字，公式如下：

=SUBSTITUTE(A2,'测试\','测试\五月天')

更名后结果如下：

哦~你问我为什么还使用函数公式，而不是直接VBA代码搞定重命名的事？那样的话岂不是更省事？

亲，你说的对！

之所以不用代码一步到位……是因为……当面对一些更名规则比较复杂的情况时，一些对VBA编程不是那么熟悉的小伙伴们……可以有更多的选择……比如函数、查找替换等。

嗯，我是一位善良温暖的大叔，鞠躬环场致谢。

3，

使用以下代码可以将A列旧的工作簿名称，替换为B列新的工作簿名称。

Sub ChangeBook()    Dim r, i&    r = [a1].CurrentRegion    '数据装入数组    For i = 2 To UBound(r)    '标题行不要，从数组第二行开始遍历        Name r(i, 1) As r(i, 2)        'Name语句重命名    Next    MsgBox '更名完成。'End Sub

小贴士：

Name语句可以重命名一个文件或文件夹，也可以将其移动到另一个文件夹中，但不能创建新文件或者文件夹，其参数不能包含通配符，语法如下：

Name oldpathname As newpathname

参数oldpathname是必须的，为一个字符串表达式，用来指定已存在的文件名或文件夹名。

参数newpathname是必须的，为一个字符串表达式，用来指定新的文件名或者文件夹名，所指定的文件名不能存在。

另外对于已打开的文件或文件夹使用Name语句，将会产生运行时错误。