Elimina il contenuto del modulo utilizzando VBA in Microsoft Excel

Anonim

Non è possibile eliminare tutti i tipi di moduli, non è possibile eliminare i codemodules per i fogli di lavoro,
grafici e ThisWorkbook. In questi moduli devi eliminare il contenuto invece del modulo stesso:

Sub DeleteModuleContent(ByVal wb As Workbook, _ ByVal DeleteModuleName As String) ' elimina il contenuto di DeleteModuleName in wb ' usa questo se non puoi eliminare il modulo On Error Riprendi Avanti con wb.VBProject.VBComponents(DeleteModuleName).CodeModule .DeleteLines 1, .CountOfLines End With On Error GoTo 0 End Sub

Esempio:

DeleteModuleContent ActiveWorkbook, "Foglio1"