In questo articolo creeremo una macro per eliminare il modulo dalla cartella di lavoro.
Useremo il MainModule come modulo grezzo.
Vogliamo sbarazzarci di questo MainModule.
Fare clic su questo pulsante per lo stesso.
Spiegazione logica
In questo articolo abbiamo creato due macro, DeleteVBComponent e call_procedure.
Elimina VBComponent
Prende il nome della cartella di lavoro e il nome del modulo come input ed elimina il modulo dalla cartella di lavoro.
call_procedure
Viene utilizzato per chiamare la macro DeleteVBComponent con la cartella di lavoro attiva e MainModule come input.
Spiegazione del codice
Application.DisplayAlerts = False
Questo codice viene utilizzato per disabilitare il messaggio di avviso.
wb.VBProject.VBComponents.Rimuovi wb.VBProject.VBComponents(CompName)
Questo codice viene utilizzato per rimuovere il modulo dalla cartella di lavoro.
Application.DisplayAlerts = True
Questo codice viene utilizzato per abilitare il messaggio di avviso.
Si prega di seguire sotto per il codice
Option Explicit Sub DeleteVBComponent(ByVal wb As Workbook, ByVal CompName As String) 'Disabilita il messaggio di avviso Application.DisplayAlerts = False 'Ignora errori In caso di errore Riprendi Avanti 'Elimina il componente wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents(CompName ) On Error GoTo 0 'Abilitazione del messaggio di avviso Application.DisplayAlerts = True End Sub Calling_procedure() 'Chiamata della macro DeleteVBComponent DeleteVBComponent ActiveWorkbook, "MainModule" End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica