批量修改文件夹下包含子文件夹所有工作簿名称

gold_bless

每月有大量报表发到全国各店，Excel表名称各月是统一的，同时打开两个月的报表时就要改名称，很麻烦！
问题1：想请教的是能否通过VBA，将所有工作簿名称后加01月。
问题2：还有就是希望能够随时将文件名改回来，就是把01月去掉。
需要修改的是文件夹下包含子文件夹所有Excel文件名称，不知能否实现，先谢谢了！

遍历文件夹修改工作簿名称.rar (58.07 KB, 下载次数: 189)

2016-1-13 11:10 上传

点击文件名下载附件

gold_bless

这个不能完成吗？请高手帮忙解答，如果不能使用VBA完成，也请告知！

zhaogang1960

请参考：

1. Sub 修改文件名()
   
2.     Dim Fso As Object, Folder As Object, s$
   
3.     s = [b1]
   
4.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
5.     Set Folder = Fso.GetFolder(ThisWorkbook.Path)
   
6.     Call GetFiles(Folder, s, True)
   
7.     MsgBox "文件名修改完毕"
   
8.     Set Folder = Nothing
   
9.     Set Fso = Nothing
   
10. End Sub
    
11. 
    
12. Sub 恢复文件名()
    
13.     Dim Fso As Object, Folder As Object, s$
    
14.     s = [b1]
    
15.     Set Fso = CreateObject("Scripting.FileSystemObject")
    
16.     Set Folder = Fso.GetFolder(ThisWorkbook.Path)
    
17.     Call GetFiles(Folder, s, False)
    
18.     MsgBox "文件名恢复完毕"
    
19.     Set Folder = Nothing
    
20.     Set Fso = Nothing
    
21. End Sub
    
22. 
    
23. Sub GetFiles(ByVal Folder As Object, s$, f As Boolean)
    
24.     Dim SubFolder As Object
    
25.     Dim File As Object
    
26.     If Folder.Path <> ThisWorkbook.Path Then
    
27.         For Each File In Folder.Files
    
28.             If File.Name Like "*.xlsx" Then
    
29.                 If f Then
    
30.                     File.Name = Replace(File.Name, ".xlsx", s & ".xlsx") '修改文件名
    
31.                 Else
    
32.                     File.Name = Replace(File.Name, s, "") '恢复文件名
    
33.                 End If
    
34.             End If
    
35.         Next
    
36.     End If
    
37.     For Each SubFolder In Folder.SubFolders
    
38.         Call GetFiles(SubFolder, s, f)
    
39.     Next
    
40. End Sub
    

复制代码

zhaogang1960

请测试附件
遍历文件夹修改工作簿名称.rar (68.44 KB, 下载次数: 1217)

2016-1-13 16:18 上传

点击文件名下载附件

gold_bless

zhaogang1960 发表于 2016-1-13 16:17
请参考：

谢谢！谢谢！
赵老师您的代码太好用了，可以随意的更改整个文件夹下所有的文件名，还能恢复原来的文件名！
再次谢谢你！

xuwq22

zhaogang1960 发表于 2016-1-13 16:19
请测试附件

师傅您好：
       我在做一个使用 VBA提取表格内容 的功能，目前功能实现了，但是只能提取当前文件夹里的.doc文件的内容，功能受限制；
       我想改成可以读取当前文件夹内子文件夹里的.doc文件的，但没有修改成功；
       各位大侠能帮我看看 怎么改成可以读取子文件夹的么？谢谢；
       网址是：http://club.excelhome.net/thread-1344592-1-1.html
       附件中是原始文件，在excel中单击“统计”，就可以把各个.doc文件中的指定的表格位置的内容自动提取到excel里面；

豫玉

先把这个下载下来看看是不是跟我的需求一致

TaintyF

zhaogang1960 发表于 2016-1-13 16:19
请测试附件

赵老师我想在原文件名前面加上文字，在怎么写代码