如何批量修改文件名称及批量排序

批量修银旁改文件名并排序的方法：

下载工具：优速文件批量重命名软件

步骤1，电脑下载工具软件后双击安装打开，点击软件中间的大方框或者【添加文件】按钮，将需要修改名称的文件全部添加到软件中。

步骤2，随后在软件左边进行设置，命名方式选择“自定义”方式；然后在下一栏输入新的文件名；最后在下面进行编号（排序）设置，起始是第一个排序编号，增量是后一个编号增量的量，位数设置排序编号一共几位数（不够的话用0凑）。右边可以随时预览到新文件的名称。

步骤3，如果预览的新文件名没有问题，就点击【开始重命名】按钮弊腊启动批量修改程序。单d出【重命名成功】的按钮，说明批处理完成。

步骤4，查看修改后的文件可以看到，新的文件名比之前更加的规范租搏滑整齐，并且有数字排序。

Sub 批量 *** 作指定目录下所有工作簿及表()

'先新建一个excel带宏(VBA代码)的工作簿，把此代码复制到此工作簿的“模块”里

Dim strFilePath$'定义工岁运庆作簿所在的目录

Dim strFileName$ '定义文件名

Dim strGetDir '用于返回strfilepath 是否存在

Dim strTwkName$ '代码所在的工作簿的名称

Dim lngRowLast& '工作表最后一行非空行号

strFilePath = "K:\程序设计\VBA\相同工作簿\"'要进行 *** 作的所有悄穗工作簿所在的目录，注意末尾是"\"

strGetDir = Dir(strFilePath, vbDirectory)

If strGetDir = "" Then MsgBox "对不起，你指定的目录不存在，请改之。": Exit Sub

strTwkName = ThisWorkbook.Name

strFileName = Dir(strFilePath &"*.xls?")

Do While Len(strFileName) >0

If strFileName <>strTwkName Then

Workbooks.Open strFilePath &strFileName

Sheets(1).Activate

lngRowLast = Cells(Rows.Count, "A").End(xlUp).Row '以A列为标准判断最后一行非空行号

Columns("C:D").Insert '在C前插入2列，可根据实际需要调整

Cells(1, "C").Formula = "=A1*B1" '新的1行C列添加公式"=A1*B1",跟在EXCEL表格中输入的公式一样

Cells(1, "C").Copy '复制公式

Range(Cells(1, "C"), Cells(lngRowLast, "C")).Select

'以上注意起始行号，如果有表头，则从改成2或其他

ActiveSheet.Paste ' 整列 粘贴公式

Selection.Copy

Selection.PasteSpecial xlPasteValues'整列数值化

ActiveWorkbook.Save '保存打工的工作簿

ActiveWorkbook.Close'关闭打开的工作簿，不需要关闭则删除这一行。

strFileName = Dir '查找下一个工作簿

Else

strFileName = Dir '查找下一个工作簿乎握

End If

Loop

End Sub

---