Note: The other languages of the website are Google-translated. Back to English

如何在Excel中重命名一个文件夹的多个文件?

可能我们大多数人都遭受这个问题的困扰,我们需要在一个文件夹中重命名多个文件,如果该文件夹中有成百上千个文件,那么一个文件名一个一个地重命名会使我们发疯。 我们有什么好的职能来处理这项任务吗?

使用kutools for Excel列出工作表中特定文件夹中的所有文件名

使用VBA代码重命名Excel中一个文件夹的多个文件


如果有多个文件要重命名,首先,您可以在工作表的列中列出旧文件名,然后输入要替换的新文件名。 要快速列出工作表中的所有文件,您可以使用 Kutools for Excel文件名列表 效用。

安装后 Kutools for Excel,请执行以下操作: 立即免费下载Kutools for Excel )

1。 点击 Kutools 加 > 进出口 > 文件名列表,请参见屏幕截图:

2。 在 文件名列表 对话框,单击 doc-rename-multiple-files-1 按钮选择要列出文件的文件夹,然后单击 所有文件 来自 档案类型,请参见屏幕截图:

doc-rename-multiple-files-1

3。 然后点击 OK 按钮,所有文件名都已列在新工作表的列中,以及一些文件属性,现在,您可以删除其他不需要的列,而只保留 文件名 列,请参见屏幕截图:

doc-rename-multiple-files-1

单击以了解有关此文件名列表功能的更多信息…

立即免费下载Kutools for Excel


在A列中列出所有原始文件名后,您应在B列中输入新文件名,如以下屏幕截图所示:

doc-rename-multiple-files-1

在这里,我将讨论一个VBA代码,该代码可以帮助您立即用新文件名替换旧文件名。 请执行以下步骤:

1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic应用程序窗口.

2。 点击 插页 > 模块,然后将以下宏粘贴到 模块窗口.

VBA代码:重命名文件夹中的多个文件

Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

3。 粘贴代码后,请按 F5 键来运行此代码,然后在 浏览 窗口中,选择要在其中更改文件名的文件夹,请参见屏幕截图:

doc-rename-multiple-files-1

4。 然后点击 OK,所有旧文件名都立即被新文件名替换。 查看屏幕截图:

doc-rename-multiple-files-1 2 doc-rename-multiple-files-1

笔记:

1.当您列出新旧文件名时,必须包含文件扩展名。

2.在上面的代码中,参考 答: 表示要重命名的旧文件名列表,并引用 B 包含您要使用的新文件名,您可以根据需要进行更改


Kutools for Excel:具有300多个方便的Excel加载项,可以在30天内免费试用,没有任何限制。 立即下载并免费试用!

相关文章:

如何从Excel中的一系列单元格创建序列工作表?

如何在Excel中重命名多个工作表?


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能。 支持Office / Excel 2007-2019和365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能30天免费试用。 60天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (34)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
亲爱的,我怎样才能像上面显示的那样更改文件夹? 你能帮我解决这个问题吗? 问题是:如何在 Excel 中重命名文件夹的多个文件夹? 亲切的问候!
该评论由网站上的主持人最小化
如果我的旧名称和新名称直到第 11 行才开始,我需要在上面的代码中修改什么。我更改了这一行“xRow = Application.Match(xFile, Range("C11:C5000"), 0)" 但它没用。
该评论由网站上的主持人最小化
没关系,我想通了。 谢谢。 " xRow = Application.Match(xFile, Range("C:C"), 11)"
该评论由网站上的主持人最小化
如何重命名名称中包含中文字符的文件。 请帮忙
该评论由网站上的主持人最小化
惊讶(有点)看到有人使用相同的语法来命名变量(例如 xDir)。 它允许与系统名称不冲突的非常好的命名变量(例如,Dir 或Date)。 我还将'z' 用于全局函数(例如,zMsg,它返回true 或false 而不是vbOK 或vbCancel)和'y' 用于常量(例如,yCR 用于vbNewline,yCR2 用于其中两个)。 干得好,你的想法也很好。 你一定很聪明!
该评论由网站上的主持人最小化
是否可以仅重命名文件名的一部分而不在 excel 表中声明完整的文件名和扩展名? 即将 123-yz.jpg 更改为 abc-yz.jpg 但我只知道文件夹中的每个图像上的 123 都需要更改为 abc?
该评论由网站上的主持人最小化
去年我成功地使用上述说明重命名了六个文件夹中的文件。 它工作得很好,我保存了说明以备将来使用。 我最近尝试再次使用它,但是当我按下 F5 而不是让浏览器窗口选择所需文件夹时,将上面的宏粘贴到模块窗口中后,我得到一个新对话框,提示我输入宏名称。 有什么建议么? 我通常每年大约有 3-4 次需要以这种方式重命名文件,去年它工作时我非常兴奋。
该评论由网站上的主持人最小化
嗨,我有 100 多个 excel 文件,我从系统下载并保存在文件夹中。 所有这些文件都有一张名为 内容. 我希望使用相应单元格 AA2 中可用的文本来命名这些 excel 文件 内容 床单。 这样单元格 AA2 中的名称将与相应 Excel 文件的文件名完全相同。 文件夹中的所有文件都应该以相同的方式重命名。 请建议一个可以以这种方式工作的宏。
该评论由网站上的主持人最小化
你好。 你的任务已经解决了吗? ? 如果仍未解决,我可以提供帮助。 请把你的任务寄给我。 德克萨斯州弗朗茨
该评论由网站上的主持人最小化
非常感谢楼主,上帝保佑你!
该评论由网站上的主持人最小化
亲爱的,尝试使用 KrojamSoft BatchRename 批量重命名文件,它非常易于使用。
该评论由网站上的主持人最小化
我试过用excel,它改变了文件类型。你能提供我csv文件重命名的代码吗?
该评论由网站上的主持人最小化
我建议尝试使用KrojamSoft BatchRename
该评论由网站上的主持人最小化
我想制作图片组合,例如我有 33 张图片,我想创建一个图片组合,请找到附件,我还有 10000 张图片,以便我可以一键创建多张图片。 请致电或发送电子邮件至 caparnasingla@gmail.com
该评论由网站上的主持人最小化
嗨,惊人的代码,为我节省了很多时间.. 非常感谢..
该评论由网站上的主持人最小化
要重命名多个文件,您还可以检查软件。 在 google-BatchRenameFiles 工具上搜索。 检查第一个搜索结果。


谢谢
乔纳森·F。
该评论由网站上的主持人最小化
这是改变游戏规则的。 太感谢了!!!
该评论由网站上的主持人最小化
我想重命名文件夹和子文件夹中的多个文件。 所以我在想一个 VBA 代码会查看“包含文件夹”列中的路径(我选中复选框“在子目录中包含文件”)我对 VBA 编码还不够好,但我看起来并试图理解. 谢谢
该评论由网站上的主持人最小化
我无法理解范围(A:A)或(B)如何定义,谢谢
该评论由网站上的主持人最小化
嗨,迪,

正如注释提醒的那样,参考 A:A 表示您要重命名的旧文件名列表,参考 B 包含您要使用的新文件名
,如下图所示:

希望对你有帮助,谢谢!
查看附件 (1 / 5)
该评论由网站上的主持人最小化
我遵循相同的过程,但无法成功重命名我也在更改的文件(“A:A”)和(“B”)。 我需要在代码中更改任何其他值吗
该评论由网站上的主持人最小化
您好,有些文件名称相同。 脚本会跳过这些文件。 有没有办法修改脚本,以便为每个重复的名称添加一个数字 1、2、3 等等?
该评论由网站上的主持人最小化
你好,凯,
要根据 name-1,name-2 的重复新名称重命名文件,以下 VBA 代码可能会对您有所帮助,请尝试一下。

注意:粘贴此代码后,您应该在 References-VBAProject 对话框中引用 Microsoft Scripting Runtime 选项,如下图所示。

子重命名文件()
将 xDir 调暗为字符串
将 xFile 调暗为字符串
将 xVal 调暗为字符串
将 xRow 变暗
Dim xCount As Long
调暗 xTemp 只要
将 xDictionary 调暗为新词典
Application.ScreenUpdating = False
出错时继续下一步
使用 Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
如果 .Show = -1 那么
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
直到 xFile = ""
xRow = 0
xRow = Application.Match(xFile, Range("A:A"), 0)
如果 xRow > 0 那么
x计数 = 0
xVal = 单元格(xRow, "B").Value
如果不是 xDictionary.Exists(xVal) 则
xDictionary.Add xVal, xCount
其他
xDictionary.Item(xVal) = xDictionary.Item(xVal) + 1
xTemp = InStrRev(xVal, ".")
单元格(xRow, "B").Value = Mid(xVal, 1, xTemp - 1) & "-" & CStr(xDictionary.Item(xVal)) & Mid(xVal, xTemp)
结束如果
名称 xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B").Value
结束如果
xFile = 目录
循环
结束如果
结束
Application.ScreenUpdating =真
END SUB
查看附件 (1 / 5)
这里还没有评论
加载更多
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点