求大神分享能批量修改文件夹名的VBA，不胜感谢！

zhaoxuie

ykcbf1100 发表于 2024-1-16 16:07
附件供参考。。。

我这只是举个例子。其实我需要的功能是这样：一键提取指定目录下的文件夹名，手动输入更改后的文件夹名后，再一键完成文件夹更名。

ykcbf1100

zhaoxuie 发表于 2024-1-16 16:14
我这只是举个例子。其实我需要的功能是这样：一键提取指定目录下的文件夹名，手动输入更改后的文件夹名后 ...

那么多文件夹你都准备手工改啊？

micch

已修改到下层

micch

zhaoxuie 发表于 2024-1-16 15:22
将新建文件夹下的文件夹1、2、3、4、5……，批量修改为”新建文件夹1、新建文件夹2、新建文件夹3、新建文 ...

1. ' 先提取到A列，B列自己输入新的名称，然后改名
   
2. Sub ReadFolders()
   
3.     Dim Folder As Object
   
4.     Dim i As Integer
   
5.     '设置文件夹路径
   
6.     Set Folder = CreateObject("Scripting.FileSystemObject").GetFolder("D:\新建文件夹")
   
7.     '循环遍历文件夹中的所有子文件夹
   
8.     For Each Folder In Folder.Subfolders
   
9.         i = i + 1
   
10.         Cells(i, 1).Value = Folder.Path
    
11.     Next
    
12. End Sub
    
13. Sub RenameFolders()
    
14.     Dim Folder As Object
    
15.     Dim i As Integer
    
16.     With CreateObject("Scripting.FileSystemObject")
    
17.     For i = 1 To Cells(9999, 1).End(3).Row
    
18.         Set Folder = .GetFolder(Cells(i, 1).Value)
    
19.         Folder.Name = Cells(i, 2).Value
    
20.     Next
    
21.     End With
    
22. End Sub

复制代码

ykcbf1100

zhaoxuie 发表于 2024-1-16 16:14
我这只是举个例子。其实我需要的功能是这样：一键提取指定目录下的文件夹名，手动输入更改后的文件夹名后 ...

我建议你，把需要改名的文件夹名，与改名的新文件夹名，一一对应，做成一个表格，这样就不用手工一个一个去修改了。

zhaoxuie

ykcbf1100 发表于 2024-1-16 16:41
我建议你，把需要改名的文件夹名，与改名的新文件夹名，一一对应，做成一个表格，这样就不用手工一个一个 ...

我就是想这样做了，可惜我不懂VBA啊。我就是想建个工作表，一键提取指定目录下的文件夹名，录入更改后的文件夹名后，再一键完成文件夹更名。

lizhipei78

ykcbf1100 发表于 2024-1-16 16:16
那么多文件夹你都准备手工改啊？

他想说的应该是我这种，稍后我弄一个通用的来
https://club.excelhome.net/threa ... tml?_dsign=375343ea

gwjkkkkk

ykcbf1100 发表于 2024-1-16 16:41
我建议你，把需要改名的文件夹名，与改名的新文件夹名，一一对应，做成一个表格，这样就不用手工一个一个 ...

这个建议比较中肯。。。

micch

lizhipei78

ykcbf1100 发表于 2024-1-16 16:41
我建议你，把需要改名的文件夹名，与改名的新文件夹名，一一对应，做成一个表格，这样就不用手工一个一个 ...

https://club.excelhome.net/forum ... 10&pid=11417249
弄好了，这个只能针对第一层文件夹，如果有多层文件夹的话，这个子文件夹的重命名目前想不到有什么好的办法进行解决