只需两步，用EXCEL批量修改某个文件夹里的所有文件名

gzxxw

神奇的VBA,谢谢分享

ai饭团8

谢谢楼主分享，修改文件利器啊

及川冰丽

不好意思求教一下，代码如何改为 with msoFileDialogFolderPicker?想这样可以在选择路径的时候直接复制路径，更加快捷。

乐乐2006201505

我们的福音，太好了！

LMY123

Sub 批量修改文件夹名称01()
     On Error Resume Next
'     If [a2] = "" Then MsgBox "请点击第一步": Exit Sub
Set obj = CreateObject("Scripting.FileSystemObject")   '定义变量
    Set fld = obj.getfolder(ThisWorkbook.Path)
     For Each ff In fld.SubFolders                  '遍历文件夹里的所有文件
        m = m + 1
        Cells(m + 1, 1) = ff.Name            '将实际文件名改成目录中C列的对应文件名
      Next
      MsgBox "改名已完成，请检查", vbOKOnly
End Sub
Sub 批量修改文件夹名称02()
     On Error Resume Next
'     If [a2] = "" Then MsgBox "请点击第一步": Exit Sub
Set obj = CreateObject("Scripting.FileSystemObject")   '定义变量
    Set fld = obj.getfolder(ThisWorkbook.Path)
     For Each ff In fld.SubFolders                  '遍历文件夹里的所有文件
        m = m + 1
       ff.Name = Cells(m + 1, 3)              '将实际文件名改成目录中C列的对应文件名
      Next
      MsgBox "改名已完成，请检查", vbOKOnly
End Sub

huaichuan1

这个shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") 怎么能获取包括桌面路径呢

geminibob

这个实在是太好用了，

梦亦相思

支持 感谢分享

Taishing-Chan

能不能批量修改文件夹名称？

cyhotw

太优秀了我天！！！！