从excel文件中删除所有VBA模块？

Question

是否可以使用VBA从Excel文件中删除所有VBA模块？

在运行此脚本之前,模块的名称(如果存在)是未知的.

Answer 1

显然,你可以.以下代码将完成这项工作:

Sub compact_code()

On Error Resume Next
    Dim Element As Object
    For Each Element In ActiveWorkbook.VBProject.VBComponents
        ActiveWorkbook.VBProject.VBComponents.Remove Element
    Next

End Sub

这将删除所有模块,包括ClassModules和UserForms,但保留所有对象模块(工作表,工作簿).