Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2920|回复: 12

[已解决]能否对多个Excel文件工件薄进行批量更名

[复制链接]
发表于 2013-1-23 15:52 | 显示全部楼层 |阅读模式
我有1000多张Excel文件工件薄,文件名依次是1组,2组,3组,4组……1000组。现在我要把每个工作薄的名称前面都加上2013年,或2014年,使其文件名全部更改为2013年1组,2013年2组……,但是每个都去重命名实在很慢,请问有没有什么方法能批量时行更改的呢?
最佳答案
2013-1-23 16:13
批量重命名.rar (15.54 KB, 下载次数: 33)
发表于 2013-1-23 16:04 | 显示全部楼层
提取文件名与批量更名.rar (12.62 KB, 下载次数: 22)
回复

使用道具 举报

发表于 2013-1-23 16:13 | 显示全部楼层    本楼为最佳答案   
批量重命名.rar (15.54 KB, 下载次数: 33)
回复

使用道具 举报

发表于 2013-1-23 16:14 | 显示全部楼层
  1. Sub 指量更名()
  2.     Dim name$, path$, file$, msg$
  3.     name = Application.InputBox("请输入新文件前缀名:", "友情提示", "2013", , , , , 2)
  4.     If name = "False" Then MsgBox "请输入有效的前缀名并点击确定": Exit Sub
  5.     path = ThisWorkbook.path & Application.PathSeparator
  6.     file = Dir(path & "*.xls", vbNormal)
  7.     On Error Resume Next
  8.     Do While Len(file) > 0
  9.         If file <> ThisWorkbook.name Then
  10.             Name path & file As path & name & "-" & file
  11.             If Err.Number <> 0 Then
  12.                 msg = msg & file & "重命名失败" & vbCr
  13.                 Err.Clear
  14.             End If
  15.         End If
  16.         file = Dir
  17.     Loop
  18.     If Len(msg) = 0 Then
  19.         MsgBox "批量重命名完成"
  20.     Else
  21.         MsgBox msg
  22.     End If
  23. End Sub
复制代码
回复

使用道具 举报

发表于 2013-1-23 16:16 | 显示全部楼层
只搜索了.xls的,如果是07,10的格式,
  1. Dir(path & "*.xls", vbNormal)
复制代码
改成
  1. Dir(path & "*.xl*", vbNormal)
复制代码
回复

使用道具 举报

发表于 2013-1-23 16:49 | 显示全部楼层
如:

  1. Sub aa()
  2. Dim Myname$
  3. Myname = Dir("D:\A文件夹\*.xls")
  4. While Myname <> ""
  5.     Name "D:\A文件夹" & Myname As "D:\A文件夹\2013年" & Myname
  6.     Myname = Dir
  7. Wend
  8. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2013-1-24 13:21 | 显示全部楼层
zyouong 发表于 2013-1-23 16:04

谢谢你的帮忙~~学习了·~
回复

使用道具 举报

 楼主| 发表于 2013-1-24 13:22 | 显示全部楼层
csmctjg 发表于 2013-1-23 16:49
如:

谢谢你,正在学习中·~
回复

使用道具 举报

 楼主| 发表于 2013-1-24 13:23 | 显示全部楼层
hwc2ycy 发表于 2013-1-23 16:13
文件放到要重命名的文件夹里。
打开点按钮就成了。

谢谢你,又有文件又有解释,说明得很详细,真的很感谢·~~
回复

使用道具 举报

 楼主| 发表于 2013-1-24 13:23 | 显示全部楼层
hwc2ycy 发表于 2013-1-23 16:16
只搜索了.xls的,如果是07,10的格式,改成

恩,我是10版的,谢谢了·~
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:43 , Processed in 0.709498 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表