让Excel和Bat联手批量改名

weiyingde

作为老师，天天跟文字、文件打交道，有时面对大量的文件，需要改名，此时，你的选择是——动手逐一修改？
以下方法，简单实用，速度很快，上千的文件，秒秒钟搞定，兴许从中你会悟出一点门道，给以后的工作带来便利。
以下是一个实例，你可以参照他，按葫芦画瓢。
1、在要改名的文件的当前路径下新建一txt文档，取名为“目录.txt“。（也可自由取名）
2、打开“目录.txt“文档写一行代码：dir/b >目录.xls (获取当前路径下所有文件名，并于当前路径下存为"目录.xls"。存为xls格式文件，是为了后期操作。）
3、将“目录.txt“的拓展名改为“.bat"，然后点击运行。
4、打开当前路径下生成的“目录.xls”文件，用公式对A列目录的文件名进行处理。
   下面结合具体的例子，进行操作。
   酷我音乐盒中下载的MP3，往往有一个很长的文件名，形式是：歌手—歌曲名。假若在歌曲名中去掉歌手。那么，可以这样：
   1）A列是原歌曲名
   2）B列对应单元格输入：=IFerror（right(A1,len(A1)-find("—",A1)),A1)
   3）C列对应单元格输入：="ren " & """" & A1 & """" & " " & """" & B1 & """"
   4）框选B1：C1，下拉填充。
5、在当前路径下，再建一个"改名.txt"（可自由取名）文件并打开。
6、将C1：Cn 的公式生成的结果，复制到"改名.txt"中，保存关闭后，修改本文件的拓展名为“bat"，然后点击运行。
7、大功告成，喝茶去。



补充内容 (2024-8-21 14:37):
Sub test()
Dim OldName$, NewName$, i&, FileName
With Application.FileDialog(msoFileDialogFilePicker)
    If .Show = -1 Then
        For i = 1 To .SelectedItems.Count
            Workbooks.Open .SelectedItems(i)
            pathn = Application.ActiveWorkbook.Path
            OldName = .SelectedItems(i)
            biggst = UBound(Split(OldName, "\"))
            FileName = Split(OldName, "\")(biggst)
            NewName = "AAA" & FileName
            NewName = pathn & "\" & NewName
            ActiveWorkbook.Close True
            Name OldName As NewName
        Next i
    End If
End With
End Sub

zxshy

用Excel批量改文件名，，也是一种不错的思路。
VBA可能比函数修改文件名编BAt适用性更高，比如适应长文件名等。
但讲纯粹的大批量修改文件名，还是用Total command功能最强大，支持正则表达式和文本文件批量导入任意的文件名修改

weiyingde

zxshy 发表于 2021-5-23 21:16
用Excel批量改文件名，，也是一种不错的思路。
VBA可能比函数修改文件名编BAt适用性更高，比如适应 ...

能给个实例吗

zxshy

VBA 可以看看这个帖子  https://zhuanlan.zhihu.com/p/354789788
total command 批量任意修改重命名 则是用菜单的命令（A）——批量重命名（R）——编辑文件名（E）——（用word/wps等编辑文件清单并存盘）——导入文件名（L）——确定           这几个步骤

weiyingde

zxshy 发表于 2021-5-27 23:34
VBA 可以看看这个帖子  https://zhuanlan.zhihu.com/p/354789788
total command 批量任意修改重命名 则是 ...

不错，我也录入其中，谢谢。

ChangeKing7

vba更简单一些

江南民谣

又学到了一招，感谢分享。

小辨子

觉得这个有点难，我只会用bat批量改照片名