创建模块打开EXCEL2003,右击第一张工作表标签选择“查看代码”,之后右击工程VBA PROJECT->插入->模块,或 “工具”->”宏”->”VISUAL BASIC编辑器”添加VBA代码选择新插入的模块后,插入以下代码后保存退出。Dim filePath As Variant '定义filepath为变量Dim obj As Object '定义obj为变量对象Dim fld, ff, gg '定义fld,ff,gg为变量Sub getpath()Range("A2:C1000").ClearContents '清空A2:C1000列On Error Resume NextDim shell As VariantSet shell = CreateObject("Shell.Application")Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址Set shell = NothingIf filePath Is Nothing Then '检测是否获得有效路径,如取消直接跳出程序Exit SubElsegg = filePath.Items.Item.pathEnd IfSet obj = CreateObject("Scripting.FileSystemObject") '定义变量Set fld = obj.getfolder(gg) '获取路径For Each ff In fld.Files '遍历文件夹里文件m = m + 1Cells(m + 1, 1) = ff.NameCells(m + 1, 2) = "-------"Cells(m + 1, 3) = ff.NameNextEnd SubSub renamefile()On Error Resume NextIf [a2] = "" Then MsgBox "请点击第一步": Exit SubFor Each ff In fld.Files '遍历文件夹里的所有文件m = m + 1ff.Name = Cells(m + 1, 3) '将实际文件名改成目录中C列的对应文件名NextMsgBox "改名已完成,请检查", vbOKOnlyEnd Sub创建两个按钮,按钮一名称改为“第一步,获得原文件名”,按钮二名称改为”第二步,改成新文件名”将按钮一“第一步,获得原文件名”指向宏getpath按钮二”第二步,改成新文件名”指向宏renamefile当然也可以直接点击“工具”->”宏->运行”宏”,然后选择相关的宏getpath和renamefile。这样,整个批量修改文件名的EXCEL表格也就创建出来了。具体操作以后凡遇到需要批量修改文件名的时候,只需要打开该EXCEL文件,按一下第一步按钮一获取文件路径,EXCEL将会弹出一个对话框(“选择文件夹”)向导。选择需要修改的文件夹之后,EXCEL里就会罗列出该文件夹里的所有文件名于A列和对应的C列上。将所希望修改的文件名字对应填在C列即可。例如:在C2上填个1.扩展名,然后CTRL+拖拽到C101,这样就可以得到有序的1到100的文件名。确认之后按一下按钮,则成功将该文件夹里的文件名真正修改成了EXCEL里的C列的名。之后会出现一句提示:"改名已完成,请检查"确认后就可以去检查目标文件夹里文件名的修改情况。对需要大量处理文档以及相片的工作者相当实用。注:由于该目录是需要通过宏功能起作用的,所以当打开工作簿时,EXCEL2007默认会禁用宏,得单击警告栏中的“选项”按钮,选中“启用此内容”单选项,确定后才能运行宏更新目录。EXCEL2003则在“工具”->“宏”->“安全性”中设置为“中”或“低”即可