Ștergeți conținutul modulului utilizând VBA în Microsoft Excel

Anonim

Nu este posibil să ștergeți tot felul de module, nu puteți șterge codemodulele pentru foile de lucru,
diagrame și ThisWorkbook. În aceste module trebuie să ștergeți conținutul în loc de modul în sine:

Sub DeleteModuleContent (ByVal wb As Workbook, _ ByVal DeleteModuleName As String) 'șterge conținutul DeleteModuleName din wb' utilizați acest lucru dacă nu puteți șterge modulul On Error Resume Next With wb.VBProject.VBComponents (DeleteModuleName) .CodeModule .DeleteLines 1, .CountOfLines Termină cu On Error GoTo 0 End Sub

Exemplu:

DeleteModuleContent ActiveWorkbook, "Sheet1"