Izdzēsiet moduļa saturu, izmantojot VBA programmā Microsoft Excel

Anonim

Nav iespējams izdzēst visu veidu moduļus, nevar izdzēst darblapu kodmodulus,
diagrammas un šī darba grāmata. Šajos moduļos jums ir jāizdzēš saturs, nevis pats modulis:

Apakš DeleteModuleContent (ByVal wb kā darbgrāmata, _ ByVal DeleteModuleName kā virkne) "dzēš DeleteModuleName saturu wb" izmantojiet šo, ja nevarat izdzēst moduli On Error Resume Next with wb.VBProject.VBComponents (DeleteModuleName) .CodeModule .DeleteL 1, .CountOfLines beidzas ar kļūdu GoTo 0 End Sub

Piemērs:

DeleteModuleContent ActiveWorkbook, "Sheet1"