诸君好,今天我们聊的主题是批量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语句,将会产生运行时错误。
代码一两行,工作不用忙断肠,说的就是酱紫的情况了,你也动手试一下吧~握爪,安~
|
|