遍历文件夹下文件改工作表名称

柳阳

问题不是太复杂，遍历指定路径下的文件夹，将所有excel工作簿中名字是sheet1的工作表改成“第1页”

bluesky_0

现在写vba可以找AI,下面就是 豆包AI的code:
Sub RenameSheetsInFolder()    Dim fso As Object    Dim folder As Object    Dim file As Object    Dim xlApp As Object    Dim xlWorkbook As Object    Dim sheet As Object    '指定要遍历的文件夹路径    folderPath = "your_path"    Set fso = CreateObject("Scripting.FileSystemObject")    Set folder = fso.GetFolder(folderPath)    For Each file In folder.Files        If Right(file.Name, 5) = ".xlsx" Or Right(file.Name, 4) = ".xls" Then            Set xlApp = CreateObject("Excel.Application")            xlApp.Visible = False            Set xlWorkbook = xlApp.Workbooks.Open(file.Path)            For Each sheet In xlWorkbook.Sheets                If sheet.Name = "Sheet1" Then                    sheet.Name = "第 1 页"                End If            Next sheet            xlWorkbook.Save            xlWorkbook.Close            xlApp.Quit            Set xlApp = Nothing            Set xlWorkbook = Nothing        End If    Next fileEnd Sub

柳阳

包括子文件夹

柳阳

请哪位大师救个急，着急

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
遍历，然后打开文件，修改表名

ykcbf1100

遍历文件夹下文件修改工作表名

ykcbf1100

修改工作表名

1. Sub ykcbf()    '//2024.7.10    "Sheet1"表改名
   
2.     Application.ScreenUpdating = False
   
3.     Dim fns As New Collection
   
4.     p = ThisWorkbook.Path & ""
   
5.     Set fso = CreateObject("Scripting.FileSystemObject")
   
6.     Set ff = fso.GetFolder(p)
   
7.     getFiles ff, fns, fso
   
8.     For Each f In fns
   
9.         Set wb = Workbooks.Open(f, 0)
   
10.         For Each sht In wb.Sheets
    
11.             If sht.Name = "sheet1" Then sht.Name = "第1页"
    
12.         Next
    
13.         wb.Close 1
    
14.     Next
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "OK！"
    
17. End Sub

复制代码

ykcbf1100

bluesky_0 发表于 2024-7-10 11:12
现在写vba可以找AI,下面就是 豆包AI的code:
Sub RenameSheetsInFolder()    Dim fso As Object    Dim fol ...

注意：工作表名是：”sheet1"，而不是“Sheet1"

而且，你的代码没有遍历文件夹

usedrange

打开123.xlsm文件点击按钮运行

柳阳

ykcbf1100 发表于 2024-7-10 11:58
遍历文件夹下文件修改工作表名

非常感谢！完美解决。