诸君好，今天我们聊的主题是批量Excel工作簿重命名，也可以扩展到批量文件重命名。此前在另一个公众号，星光俺还分享过不用VBA的方法，感兴趣的小伙伴可以一观，链接：
http://mp.weixin.qq.com/s/Xrwt02oQ-lsqbOHOod96pw
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 oldpathnameAs newpathname
参数oldpathname是必须的，为一个字符串表达式，用来指定已存在的文件名或文件夹名。
参数newpathname是必须的，为一个字符串表达式，用来指定新的文件名或者文件夹名，所指定的文件名不能存在。
另外对于已打开的文件或文件夹使用Name语句，将会产生运行时错误。
代码一两行，工作不用忙断肠，说的就是酱紫的情况了，你也动手试一下吧~握爪，安~
|
|
转播
