如何用VBA批量修改表格名称

Adel345

各位大神：


           如附件所示，我的三张表格里，都有一张2022的表格，但是命名不规范，有的里面有空格，有的是2022全年，能否帮忙写个代码，可以批量把不规范的2022带空格，2022全年，名称改为2022，因为我这个涉及到100多张表格，所以需要这个代码哈，跪谢各位大神

ykcbf1100

批量表名重命名

ykcbf1100

参与一下

1. Sub ykcbf()   '//2024.9.11
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     p = ThisWorkbook.Path & ""
   
5.     For Each f In fso.GetFolder(p).Files
   
6.         If LCase(f.Name) Like "*.xls*" Then
   
7.             If InStr(f, "~$") = 0 Then
   
8.                 If InStr(f, ThisWorkbook.Name) = 0 Then
   
9.                     Set wb = Workbooks.Open(f, 0)
   
10.                     For Each sht In wb.Sheets
    
11.                         If InStr(sht.Name, "2022") Then
    
12.                             sht.Name = "2022"
    
13.                         End If
    
14.                     Next
    
15.                     wb.Close 1
    
16.                 End If
    
17.             End If
    
18.         End If
    
19.     Next
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "OK！"
    
22. End Sub
    

复制代码

shiruiqiang

Adel345

ykcbf1100 发表于 2024-9-11 20:42
参与一下

很好很好，跪谢大神！！！！

Adel345

shiruiqiang 发表于 2024-9-11 20:45

用过了很好用，跪谢大神！！！！

quqiyuan

参与一下，仅供参考。。，

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Dim wb As Workbook, sh As Worksheet
    Set wb = ThisWorkbook
    p = wb.Path & "\"
    f = Dir(p & "*.xls*")
    Do While f <> ""
        If f <> wb.Name Then
            With Workbooks.Open(p & f, 0)
                For Each sh In .Sheets
                    If InStr(sh.Name, "2022") Then
                        sh.Name = "2022"
                    End If
                Next
                .Close 1
            End With
        End If
        f = Dir
    Loop
    Application.ScreenUpdating = True
    Beep
End Sub

Adel345

quqiyuan 发表于 2024-9-11 21:41
参与一下，仅供参考。。，

这位大神，代码非常简略，很有用，跪谢跪谢！