拼音佳佳的文件批量重命名vba(简单,准确,好用)

拼音佳佳

嗯,构思花的时间不算短,刚才付诸实行了.
代码写的很少,时间用了1个点(初学乍练没办法)

采取了文件名列表的方式,原文件名称由宏功能导入,新文件名与旧文件名的列表一一对应,你可以用任何方法产生新文件名的序列,当然也包括最笨的手工输入法.

嗯,至于如何根据旧文件名产生新的文件名,这就要看使用者自身的EXCEL技术了.我只提供了一个预选方式.

类似的工具还有一些,比如EXCEL工具箱提供的批量重命名功能(不好意思,批评一下,那个功能把我给害了,所以我才下决心以vba初学者的身份自行编写了这个表格).

版本编号:体验版v0.1
实现了最基本的功能.自己的设想还没有完全实现(比如更完善的重命名方案,可以将1,3,5,7,9变成1,2,3,4,5而不报错,目前做不到).
对一般的照片类文件批量重新编号那是没问题.

附带一堆空白文本文件供测试.2到29号由公式产生,
复件 新建 文本文档.txt   01.txt
新建 文本文档.txt            00.txt
这两个手工生成.

拼音佳佳

如果你能想到办法,它甚至可以不按文件名信息来重命名.创建日期这样的信息有可能会利用到.

terqm

,这样用dos处理速度很慢,而且麻烦.   请楼主学习下FSO 的应用
Private Sub CommandButton2_Click(),批量改名
Application.ScreenUpdating = False
Set fso = CreateObject("scripting.filesystemobject")
For i = 1 To Range("a62222").End(xlUp).Row
Set ff = fso.getfile(ThisWorkbook.Path & "\" & Cells(i, 1))
ff.Name = Cells(i, 2) & ".txt"
Next
Application.ScreenUpdating = True
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub CommandButton3_Click()'批量获取名称
Application.ScreenUpdating = False
Set fso = CreateObject("scripting.filesystemobject")
Set f = fso.getfolder(ThisWorkbook.Path & "\")
Set ff = f.Files
For Each kkk In ff
If kkk.Name <> ThisWorkbook.Name Then k = k + 1: Cells(k, 1) = kkk.Name
Next
Application.ScreenUpdating = True
End Sub