好吧问答库 > 如何批量用指定内容替换旧文件名内容，新旧文件名内容已录入EXCEL表，一一对应，注意只是文化名中包含的

如何批量用指定内容替换旧文件名内容，新旧文件名内容已录入EXCEL表，一一对应，注意只是文化名中包含的

2024年11月16日 23:16

有2个网友回答

网友（1）：

用批量改名软件，比如好压就可以。

经测试，完全可以

网友（2）：

参考：如果不会改再追问详细说说

Sub Rname()
    Dim Path As String, Spath As String
    Path = "D:\"
    Spath = Dir(Path & "*.*") '文件类型
    Do Until Spath = ""
        Name Path & Spath As Path & Replace(Spath, "C", "D")
        Spath = Dir
    Loop
End Sub