Slet modulindhold ved hjælp af VBA i Microsoft Excel

Anonim

Det er ikke muligt at slette alle slags moduler, du kan ikke slette kodemodulerne til regneark,
diagrammer og ThisWorkbook. I disse moduler skal du slette indholdet i stedet for selve modulet:

Sub DeleteModuleContent (ByVal wb As Workbook, _ ByVal DeleteModuleName As String) 'sletter indholdet i DeleteModuleName i wb' brug dette, hvis du ikke kan slette modulet On Error Resume Next With wb.VBProject.VBComponents (DeleteModuleName) .CodeModule .DeleteLines 1, .CountOfLines slutter med ved fejl GoTo 0 End Sub

Eksempel:

DeleteModuleContent ActiveWorkbook, "Sheet1"