批量修改表簿名称

天地一相

感谢帮助。详见截图附件

ykcbf1100

你没有上传改名的文件，也就无法调试。

你参考一下吧。

ykcbf1100

工作表改名。

1. Sub ykcbf()   '//2024.7.13
   
2.     p = "f:"
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     Set ff = fso.GetFolder(p)
   
5.     getFiles ff, fns, fso
   
6. End Sub
   
7. 
   
8. Function getFiles(ff, p, fso)
   
9.     For Each f In ff.Files
   
10.         If f.Name Like "*.xlsb" Then
    
11.             If InStr(f, "~$") = 0 Then
    
12.                 If InStr(f, ThisWorkbook.Name) = 0 Then
    
13.                     Set wb = Workbooks.Open(f, 0)
    
14.                     If wb.Sheets(1).Name = "DataSum" Then wb.Sheets(1).Name = "DaSum"
    
15.                     wb.Close 1
    
16.                 End If
    
17.             End If
    
18.         End If
    
19.     Next
    
20.     For Each fd In ff.subFolders
    
21.         getFiles fd, p, fso
    
22.     Next
    
23. End Function
    
24. 
    

复制代码

天地一相

ykcbf1100 发表于 2024-7-13 19:16
你没有上传改名的文件，也就无法调试。

你参考一下吧。

大概看了下，没敢用。你这个好像是对我的文件名修改。我实际上是要打开文件，看文件里第1个工作表的名称来判断是否修改。

ykcbf1100

天地一相 发表于 2024-7-13 19:51
大概看了下，没敢用。你这个好像是对我的文件名修改。我实际上是要打开文件，看文件里第1个工作表的名称 ...

哦，对的，我疏忽了。我再改一下。

ykcbf1100

天地一相 发表于 2024-7-13 19:51
大概看了下，没敢用。你这个好像是对我的文件名修改。我实际上是要打开文件，看文件里第1个工作表的名称 ...

不好意思，改过了。。。

limonet

关键字：recurse+include

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";$Excel = New-Object -ComObject Excel.Application;dir -recurse -file -include '*.xlsb' " _
    & "| %{$WorkBook = $excel.workbooks.Open($_.fullname);if ($workbook.Sheets.Item(1).name -eq 'DataSum') " _
    & "{$workbook.Sheets.Item(1).name='DaSum'};$workbook.Save();$Excel.Workbooks.Close()};" _
    & "$Excel.Quit();[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)", 0
End Sub