Poista moduulin sisältö VBA: n avulla Microsoft Excelissä

Anonim

Ei ole mahdollista poistaa kaikenlaisia ​​moduuleja, et voi poistaa laskentataulukoiden koodimoduuleja,
kaaviot ja ThisWorkbook. Näissä moduuleissa sinun on poistettava sisältö itse moduulin sijaan:

Sub DeleteModuleContent (ByVal wb As Workbook, _ ByVal DeleteModuleName As String) 'poistaa DeleteModuleName -sisällön wb: ssä' käytä tätä, jos et voi poistaa moduulia Virhe Jatka seuraavaksi wb.VBProject.VBComponents (DeleteModuleName) .CodeModule .DeleteLes 1, .CountOfLines päättyy virheeseen GoTo 0 End Sub

Esimerkki:

DeleteModuleContent ActiveWorkbook, "Sheet1"