VBA EXCEL中删除存在的宏

1. '批量删除EXCEL文件里的程序部分
2. '引用:Microsoft Visual Basic for Applications Extensibility 5.3
3. '宏安全性里勾选"信任对于"Visual Basic项目"的访问(V)"
5. Private Sub CommandButton1_Click()
6.     On Error Resume Next
7.     Set fso = CreateObject("Scripting.FileSystemObject")
8.     fname = ActiveWorkbook.Path & "/xls" 
9.     Set fd = fso.getfolder(fname)
10.     Set fls = fd.Files
11.     For Each fl In fls
12.         Set wb = Workbooks.Open(fname & "/" & fl.Name)
13.     
14.         With Application.VBE.ActiveVBProject
15.             For i = .VBComponents.Count To 1 Step -1
16.                 LCount = .VBComponents(i).CodeModule.CountOfLines
17.                 .VBComponents(i).CodeModule.DeleteLines 1, LCount
18.                 .VBComponents.Remove .VBComponents(i)
19.             Next i
20.         End With
21.     wb.Save
22.     wb.Close
23.     Next
24.     
25.     MsgBox "DONE!"
26. End Sub