In diesem Artikel erstellen wir ein Makro zum Löschen eines Moduls aus der Arbeitsmappe.
Wir werden das MainModule als Rohmodul verwenden.
Wir wollen dieses MainModule loswerden.
Klicken Sie dafür auf diese Schaltfläche.
Logikerklärung
In diesem Artikel haben wir zwei Makros erstellt, DeleteVBComponent und calling_procedure.
VBComponent löschen
Es verwendet den Arbeitsmappennamen und den Modulnamen als Eingaben und löscht das Modul aus der Arbeitsmappe.
calling_procedure
Es wird verwendet, um das DeleteVBComponent-Makro mit der aktiven Arbeitsmappe und dem MainModule als Eingaben aufzurufen.
Codeerklärung
Application.DisplayAlerts = False
Dieser Code wird verwendet, um die Warnmeldung zu deaktivieren.
wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents(CompName)
Dieser Code wird verwendet, um das Modul aus der Arbeitsmappe zu entfernen.
Application.DisplayAlerts = True
Dieser Code wird verwendet, um die Warnmeldung zu aktivieren.
Bitte folgen Sie unten für den Code
Option Explicit Sub DeleteVBComponent(ByVal wb As Workbook, ByVal CompName As String) 'Deaktivieren der Warnmeldung Application.DisplayAlerts = False 'Fehler bei Fehler ignorieren Resume Next 'Löschen der Komponente wb.VBProject.VBComponents.Remove wb.VBProject(.VBComponents ) On Error GoTo 0 'Aktivieren der Warnmeldung Application.DisplayAlerts = True End Sub Sub calling_procedure() 'Aufruf des DeleteVBComponent Makros DeleteVBComponent ActiveWorkbook, "MainModule" End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site