- '批量删除EXCEL文件里的程序部分
- '引用:Microsoft Visual Basic for Applications Extensibility 5.3
- '宏安全性里勾选"信任对于"Visual Basic项目"的访问(V)"
- Private Sub CommandButton1_Click()
- On Error Resume Next
- Set fso = CreateObject("Scripting.FileSystemObject")
- fname = ActiveWorkbook.Path & "/xls"
- Set fd = fso.getfolder(fname)
- Set fls = fd.Files
- For Each fl In fls
- Set wb = Workbooks.Open(fname & "/" & fl.Name)
- With Application.VBE.ActiveVBProject
- For i = .VBComponents.Count To 1 Step -1
- LCount = .VBComponents(i).CodeModule.CountOfLines
- .VBComponents(i).CodeModule.DeleteLines 1, LCount
- .VBComponents.Remove .VBComponents(i)
- Next i
- End With
- wb.Save
- wb.Close
- Next
- MsgBox "DONE!"
- End Sub
VBA EXCEL中删除存在的宏
最新推荐文章于 2025-07-28 13:18:32 发布
通过VBA编写宏,在Excel中批量删除指定文件夹内所有工作簿的程序部分。首先引用Microsoft Visual Basic for Applications Extensibility 5.3,然后设置FileSystemObject打开文件夹,遍历文件,逐个打开工作簿,删除每个工作簿的所有VB组件代码,并保存关闭,最后显示提示消息。确保宏安全性设置为信任VBA项目的访问。

1万+

被折叠的 条评论
为什么被折叠?



