1、打开excel表格，点击【开发工具】、【Visual Basic】。
2、点击【插入】、【模块】。
3、在模块代码框里面输入以下VBA程序，再按【F5】键运行程序。Sub ChangeF坡纠课柩ilesName()Dim i1, i2, i3, myPath, Na, Na2, Str1, fs, foOn Error Resume Next '忽略运行过程中可能出现的错误myPath = "D:\办公文件\待修改文件名" '待修改文件名所在的文件夹Na2 = "连接函数使用截图" '新的名称Set fs = CreateObject("Scripting.FileSystemObject") '计算机文件访问Set fo = fs.GetFolder(myPath) '获取文件夹For Each fi In fo.Files '扫描文件夹里面的每一个文件i1 = 0i2 = 0i3 = i3 + 1 '文件名后自动+1Na = fi.Name '获取文件名称Do i1 = mypos '寄存上次获取“.”的位置 i2 = i2 + 1 mypos = InStr(mypos + 1, Na, ".") '获取"."存在的位置 If mypos = 0 And i2 <> 1 Then Str1 = Right(Na, Len(Na) - i1 + 1) '截取后缀名 fi.Name = Na2 & i3 & Str1 '重命名文件（新文件名+序号+后缀名） Exit Do '退出Do循环 End If If mypos = 0 And i2 = 1 Then '如果文件不存在后缀名，则 fi.Name = Na2 & i3 '重命名文件 Exit Do End IfLoopNextEnd Sub
4、文件批量修改名称完成。
