请教各位大神怎样实现批量删除各文件夹中各工作簿固定名称的工作表

Landlord007

请教一下，怎样实现一次删除各工作表中的实质性工作底稿和附注（图片箭头表示的是要删除的工作表）。

ykcbf1100

是删除工作表吗？

baofa2

测试.zip (19.64 KB, 下载次数: 9)

2024-4-14 10:09 上传

点击文件名下载附件

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.14
   
2.     Dim fns(1 To 10000, 1 To 2)
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Application.ScreenUpdating = False
   
5.     Application.DisplayAlerts = False
   
6.     Dim tm: tm = Timer
   
7.     p = ThisWorkbook.Path & ""
   
8.     Set ff = fso.GetFolder(p)
   
9.     st = [{"实质性","附注"}]
   
10.     k = 0
    
11.     getfns ff, fns, k, fso
    
12.     On Error Resume Next
    
13.     For x = 1 To k
    
14.         Set wb = Workbooks.Open(fns(x, 2), 0)
    
15.         For Each sht In wb.Sheets
    
16.             For m = 1 To 2
    
17.                 If InStr(sht.Name, st(m)) Then sht.Delete
    
18.             Next
    
19.         Next
    
20.         wb.Close 1
    
21.     Next
    
22.     Application.ScreenUpdating = True
    
23.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
24. End Sub
    

复制代码

Landlord007

ykcbf1100 发表于 2024-4-14 09:59
是删除工作表吗？

是的，删除工作表