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

论坛 期权论坛 期权     
数据分析就用Excel   2019-6-9 21:27   4558   0
诸君好,今天我们聊的主题是批量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语句,将会产生运行时错误。

代码一两行,工作不用忙断肠,说的就是酱紫的情况了,你也动手试一下吧~握爪,安~
分享到 :
0 人收藏
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

积分:113
帖子:22
精华:0
期权论坛 期权论坛
发布
内容

下载期权论坛手机APP