更改所有子文件夹中指定工作簿名称中的工作表名称

187152

我一个文件夹下有若干个子文件夹，每个文件夹中都有一个名称为“1.xls”的工作簿，现我想将所有文件夹下名字为“1.xls”的工作簿中的所有工作表重命名，而其他名称的工作簿不用变动，请问大侠该怎么实现？我的程序总是将所有工作簿都改了，调试了一下午没弄出来，烦劳哪位老师来帮下忙，谢谢！！

187152

有没有哪位老师可帮我看一下代码啊，谢谢

187152

哪位大神帮我看一下代码啊，谢谢

liulang0808

http://club.excelhome.net/thread-1258425-1-1.html
资料供参考

187152

liulang0808 发表于 2017-6-29 08:07
http://club.excelhome.net/thread-1258425-1-1.html
资料供参考

怎么指定特定名称的工作簿？谢谢

liulang0808

187152 发表于 2017-6-29 12:34
怎么指定特定名称的工作簿？谢谢

就是楼主已经确定文件名的工作薄叫特定名称的吗？

liulang0808

1. Sub rnm()
   
2.     Dim Fso As Object, Folder As Object, arr$(), m&, i&, sh As Worksheet
   
3.     Dim WS As Worksheet
   
4.     Dim WB As Workbook
   
5.     Dim Num As Long
   
6.     Dim j As Integer
   
7.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
8.     Set Folder = Fso.GetFolder(ThisWorkbook.Path)
   
9. 
   
10.     Application.ScreenUpdating = False
    
11.     Application.DisplayAlerts = False
    
12.         
    
13.     For Each fd In Folder.subfolders
    
14.         For Each fdd In fd.subfolders
    
15.             pth = fdd & "\1.xls"
    
16.             If Dir(pth) <> "" Then
    
17.                 With Workbooks.Open(pth)
    
18.                     For Each sht In .Sheets
    
19.                         sht.Name = "NewName" & sht.Index
    
20.                     Next
    
21.                     .Save
    
22.                     .Close False
    
23.                 End With
    
24.             End If
    
25.         Next fdd
    
26.     Next
    
27.     Set Folder = Nothing
    
28.     Set Fso = Nothing
    
29.     Application.DisplayAlerts = True
    
30.     Application.ScreenUpdating = True
    
31. End Sub
    

复制代码

liulang0808

代码供参考。。。。。。

187152

liulang0808 发表于 2017-6-29 13:07
代码供参考。。。。。。

哎，只能说太屌了，请收下我的膝盖。非常感谢

liulang0808

187152 发表于 2017-6-29 15:40
哎，只能说太屌了，请收下我的膝盖。非常感谢

之前发个资料看看，你也可以的