Ištrinkite modulio turinį naudodami „Microsoft Excel“ VBA

Anonim

Neįmanoma ištrinti visų rūšių modulių, negalima ištrinti kodinių darbo lapų modulių,
diagramas ir „ThisWorkbook“. Šiuose moduliuose turite ištrinti turinį, o ne patį modulį:

Sub DeleteModuleContent (ByVal wb As Workbook, _ ByVal DeleteModuleName As String) "ištrina DeleteModuleName turinį wb" naudokite tai, jei negalite ištrinti modulio On Error Resume Next With wb.VBProject.VBComponents (DeleteModuleName) .CodeModule .DeleteL 1, .CountOfLines baigiasi įjungus klaidą GoTo 0 End Sub

Pavyzdys:

„DeleteModuleContent ActiveWorkbook“, „Sheet1“