大神帮帮忙，把多个EXCEL里面的指定sheet表名称 按指定的修改

whq546353

比如多个的EXCEL表里面都有个sheet叫大海，帮忙都改成小溪，大神帮帮忙；

liulang0808

http://club.excelhome.net/thread-1258425-1-1.html
遍历文件的资料，可以参考

whq546353

liulang0808 发表于 2018-11-17 17:37
http://club.excelhome.net/thread-1258425-1-1.html
遍历文件的资料，可以参考

谢谢大神，可是看不懂啊

liulang0808

1. Sub 按钮1_Click()
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     For Each f In fso.getfolder(ThisWorkbook.Path).Files
   
6.         If InStr(f.Name, "code") = 0 Then
   
7.             With Workbooks.Open(f)
   
8.                 .Sheets("大海").Name = "小溪"
   
9.                 .Save
   
10.                 .Close True
    
11.             End With
    
12.         End If
    
13.     Next f
    
14.     Application.DisplayAlerts = True
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

liulang0808

附件内容供参考。。。

whq546353

liulang0808 发表于 2018-11-17 18:47
附件内容供参考。。。

谢谢大神，666666

lsc900707

参考测试附件：