Excel VBA 编程 典型实例——批量修改文件名
为了对计算机磁盘中的文件进行统一管理，可以对其进行批量重命名。下面借助于Excel 2007中的控件及VBA 代码等知识，通过在Excel 工作表中的对应文件名进行修改，从而达到修改磁盘中的文件名的目的。
1．练习要点
● 新建工作簿
● 控件的应用
2．操作步骤：
（1）打开一个Excel 文件，并进入VBE 窗口。然后，在新建的模块【代码】编辑窗口中，输入下面的代码，以创建工作簿。 Sub 新建工作簿()
Workbooks.Add
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("Scripting.FileSystemObject")
Set fld = obj.GetFolder(gg)
For Each ff In fld.Files
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 fld.Files
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 批量修改文件名
