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,但保留所有对象模块(工作表、工作簿).
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,但保留所有对象模块(工作表、工作簿).