时间:2020-09-10 09:27作者:admin来源:未知人气:1194我要评论(0)
本文将将讲述如何使用Excel中的VBA宏重命名给定目录中的多个文件。如何在Excel中批量重命名多个文件。
假设你有多个Excel工作簿文件,如:test1.xlsx,test2.xlsx ……等。
您希望批量将所选目录中所有文件重命名为另一种格式,我们该如何快速实现它呢?最好的方法是使用Excel VBA宏重命名所有文件名。只需执行以下步骤:
步骤1:您需要在当前工作表中键入所有文件名,然后创建一个包含新文件名列表的新列。
步骤2:打开您的Excel工作簿,然后单击开发工具选项卡下的“Visual Basic”命令,或者只需按“ALT + F11”快捷方式。
步骤3:然后将出现“Visual Basic编辑器”窗口。
步骤4:单击“插入” – >“模块”以创建新模块。
步骤5:将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。
Sub RenameMultipleFiles()
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
selectDirectory = .SelectedItems(1)
dFileList = Dir(selectDirectory & Application.PathSeparator & "*")
Do Until dFileList = ""
curRow = 0
On Error Resume Next
curRow = Application.Match(dFileList, Range("B:B"), 0)
If curRow > 0 Then
Name selectDirectory & Application.PathSeparator & dFileList As selectDirectory & Application.PathSeparator & Cells(curRow, "D").Value
End If
dFileList = Dir
Loop
End If
End With
End Sub
注意:范围B:B用于放置原始文件名列表,列D用于存储新文件名列表。因此,您需要在上面的VBA代码中根据需要替换这两个值。
步骤6:返回当前工作表,然后运行上面的excel宏。点击执行按钮。
步骤7:在“浏览”对话框中选择一个包含要重命名的文件的目录。然后单击确定按钮。
步骤8:您可以转到包含文件的目录,以检查文件名是否已更改。
相关阅读 Excel有哪些常用的数学函数?Excel取消表格中虚线的两种方法Excel最常见的「错误值」,这些含义你都知道吗?实现快速找出Excel表格中两列数据不同内容的3种方法!如何利用Excel一键提取身份证的这些重要信息,公式直接套用!Excel如何制作动态红绿灯,工作可不要亮红灯哦Excel身份证号大探索excel如何根据日期按月汇总计算公式Excel浪漫表白公式,发给心仪的她/他Excel表格如何自动求和
热门文章 excel 两表数据快速对比,高手都是这样做,四种方法随你选.xlsm是什么文件格式,以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式:用SUMPRODUCT和SUM函数计算加权平均
最新文章
Excel有哪些常用的数学函数?Excel取消表格中虚线的两种方法
Excel最常见的「错误值」,这些含义你都知道吗?实现快速找出Excel表格中两列数据不同内容的3种方法!如何利用Excel一键提取身份证的这些重要信息,公式直接套用!Excel如何制作动态红绿灯,工作可不要亮红灯哦
人气排行 excel 两表数据快速对比,高手都是这样做,四种方法随你选.xlsm是什么文件格式,以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式:用SUMPRODUCT和SUM函数计算加权平均excel中IF条件函数10大用法完整版,全会是高手,配合SUMIF,VLOOKUPexcel中COUNTIFS函数9种高级用法详解,条件统计重复值,告别加班涨工如何解除Excel VBA工程密码excel 如何根据身份证号码提取户籍所在省份地区函数公式
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>