admin 管理员组文章数量: 1086019
2024年3月28日发(作者：iframe同用法的)
Excel VBA编程 典型实例——批量修改文件名
为了对计算机磁盘中的文件进行统一管理，可以对其进行批量重命名。下面借助于
Excel 2007中的控件及VBA代码等知识，通过在Excel工作表中的对应文件名进行修
改，从而达到修改磁盘中的文件名的目的。
1．练习要点
新建工作簿
控件的应用
2．操作步骤：
（1）打开一个Excel文件，并进入VBE窗口。然后，在新建的模块【代码】编辑窗
口中，输入下面的代码，以创建工作簿。
Sub 新建工作簿()
End Sub
（2）在新建的工作簿中，创建如图15-7所示的表格。
创建表格
图15-7 创建表格
（3）进入VBE窗口中，新建一个模块，在该模块【代码】编辑窗口中，输入如图
15-8所示的代码。
输入
图15-8 输入代码
Dim obj As Object
Dim fld, ff, gg
Sub aa()
Range("a2:c3000").ClearContents
On Error Resume Next
gg = InputBox("请把要批量更名的文件夹地址粘贴或输入到下框中", , 100)
Set obj = CreateObject("stemObject")
Set fld = der(gg)
For Each ff In
m = m + 1
Cells(m + 1, 1) =
Cells(m + 1, 2) = "-------"
Cells(m + 1, 3) =
Next
End Sub
————————————————
Sub bb()
On Error Resume Next
If [a2] = "" Then MsgBox "请点击第一步": Exit Sub
For Each ff In
m = m + 1
= Cells(m + 1, 3)
Next
MsgBox "改名已完成，请检查", vbOKOnly
End Sub
（4）在工作表中，插入两个“按钮（窗体控件）”按钮，并分别重命名为“第一步：
获取原文件名”和“第二步：改成新文件名”文字，如图15-9所示。
绘制
控件
图15-9 绘制“控件”按钮
（5）右击“第一步：获取原文件名”控件，执行【指定宏】命令。然后，在弹出
的【指定宏】对话框中，设置【宏名】为“获取”；并单击【新建】按钮，如图15-10
所示。
执行
单击
图15-10 指定宏
（6）在弹出的【代码】编辑窗口中，输入指定宏的宏代码：
Sub 获取()
Call aa
End Sub
（7）运用相同的方法，为“第二步：改成新文件名”控件，指定宏代码为：
Sub 修改()
Call bb
End Sub
（8）返回工作表，单击【第一步：获取文件名】控件按钮，在弹出的对话框中，
输入文件的地址，如图15-11所示。
输入
单击
图15-11 输入文件存放地址
（9）单击对话框中的【确定】按钮，即可得到如图15-12所示的文件名称。
获取文件名
图15-12 获取文件名
将鼠标置于列标的边界线上，双击即可调整列宽至合适的大小。
提 示
（10）在C列的单元格中，分别修改文件的名称，。然后，单击【第二步：改成新
文件名】控件按钮，如图15-13所示。
命名
图15-13 修改文件名
（11）用户可以在计算机上查找图片存放的地址，此时，将发现图片的文件名已经
被批量进行了修改，如图15-14所示。
修改文
件名
图15-14 批量修改文件名
版权声明：本文标题：Excel VBA编程 典型实例——批量修改文件名 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1711585049a601034.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论