[已解决]批量删除某文件下所有工作簿中所有工作表标签的特定符号（比如空格等）？

phz1234

求助：批量删除某文件下所有工作簿中所有工作表标签的特定符号（比如空格等）？

最佳答案

月排行榜 / 总排行榜

dongqing1998

2012-7-16 21:55

1. 
   
2. Sub 删除工作表标签中特定符号()
   
3.     Dim wb As Workbook, sht As Worksheet, f$, fol, s$
   
4.     With Application.FileDialog(msoFileDialogFolderPicker)
   
5.         If .Show = False Then Exit Sub
   
6.         fol = .SelectedItems(1) & ""
   
7.     End With
   
8.     s = InputBox("请输入要删除的字符", "输入指定字符", " ")
   
9.     If s = "" Then Exit Sub
   
10.     f = Dir(fol & "*.*")
    
11.     Application.ScreenUpdating = False
    
12.     Application.DisplayAlerts = False
    
13.     Do While f <> ""
    
14.         If fol & f <> ThisWorkbook.FullName Then
    
15.             Set wb = Workbooks.Open(fol & f)
    
16.             For Each sht In ActiveWorkbook.Sheets
    
17.                 sht.Name = Replace(sht.Name, s, "")
    
18.             Next
    
19.             wb.Save
    
20.             wb.Close
    
21.         End If
    
22.         f = Dir
    
23.     Loop
    
24.     MsgBox "已经完成所有操作~!", vbInformation, "完成"
    
25.     Application.DisplayAlerts = True
    
26.     Application.ScreenUpdating = True
    
27. End Sub
    

复制代码

打开工作簿，点击那个按钮，按提示操作就可以了。

跳转到最佳答案楼层

dongqing1998

1. 
   
2. Sub 删除工作表标签中特定符号()
   
3.     Dim wb As Workbook, sht As Worksheet, f$, fol, s$
   
4.     With Application.FileDialog(msoFileDialogFolderPicker)
   
5.         If .Show = False Then Exit Sub
   
6.         fol = .SelectedItems(1) & ""
   
7.     End With
   
8.     s = InputBox("请输入要删除的字符", "输入指定字符", " ")
   
9.     If s = "" Then Exit Sub
   
10.     f = Dir(fol & "*.*")
    
11.     Application.ScreenUpdating = False
    
12.     Application.DisplayAlerts = False
    
13.     Do While f <> ""
    
14.         If fol & f <> ThisWorkbook.FullName Then
    
15.             Set wb = Workbooks.Open(fol & f)
    
16.             For Each sht In ActiveWorkbook.Sheets
    
17.                 sht.Name = Replace(sht.Name, s, "")
    
18.             Next
    
19.             wb.Save
    
20.             wb.Close
    
21.         End If
    
22.         f = Dir
    
23.     Loop
    
24.     MsgBox "已经完成所有操作~!", vbInformation, "完成"
    
25.     Application.DisplayAlerts = True
    
26.     Application.ScreenUpdating = True
    
27. End Sub
    

复制代码

打开工作簿，点击那个按钮，按提示操作就可以了。

phz1234

dongqing1998 发表于 2012-7-16 21:55
打开工作簿，点击那个按钮，按提示操作就可以了。

很好！谢谢！方便多了