Excel VBA编程 典型实例 - 批量修改文件名

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) = ff.Name

Cells(m + 1, 2) = "-------"

Cells(m + 1, 3) = ff.Name

Next

End Sub

————————————————

Sub bb()

On Error Resume Next

If [a2] = "" Then MsgBox "请点击第一步": Exit Sub

For Each ff In fld.Files

m = m + 1

ff.Name = 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 批量修改文件名

本文来源：https://www.2haoxitong.net/k/doc/801ff55c14791711cc791752.html