Изтрийте съдържанието на модула с помощта на VBA в Microsoft Excel

Anonim

Не е възможно да изтриете всички видове модули, не можете да изтриете кодовите модули за работни листове,
диаграми и ThisWorkbook. В тези модули трябва да изтриете съдържанието вместо самия модул:

Sub DeleteModuleContent (ByVal wb As Workbook, _ ByVal DeleteModuleName As String) 'изтрива съдържанието на DeleteModuleName в wb' използвайте това, ако не можете да изтриете модула On Error Resume Next With wb.VBProject.VBComponents (DeleteModuleName) .CodeModule. 1, .CountOfLines завършва с грешка при включване GoTo 0 End Sub

Пример:

DeleteModuleContent ActiveWorkbook, "Sheet1"