V tomto článku vytvoříme makro pro odstranění modulu ze sešitu.
Jako základní modul použijeme modul MainModule.
Chceme se tohoto MainModule zbavit.
Stejným způsobem klikněte na toto tlačítko.
Logické vysvětlení
V tomto článku jsme vytvořili dvě makra, DeleteVBComponent a calling_procedure.
Odstranit VBComponent
Bere název sešitu a název modulu jako vstupy a odstraní modul ze sešitu.
calling_procedure
Používá se k volání makra DeleteVBComponent s aktivním sešitem a MainModule jako vstupy.
Vysvětlení kódu
Application.DisplayAlerts = False
Tento kód slouží k deaktivaci výstražné zprávy.
wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents (CompName)
Tento kód slouží k odebrání modulu ze sešitu.
Application.DisplayAlerts = True
Tento kód slouží k povolení výstražné zprávy.
Pro kód prosím postupujte níže
Možnost Explicitní Sub DeleteVBComponent (ByVal wb jako sešit, ByVal CompName jako řetězec) 'Zakázání výstražné zprávy Application.DisplayAlerts = False' Ignorovat chyby při chybě Pokračovat dále 'Odstranit komponentu wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents (CompName ) On Error GoTo 0 'Povolení výstražné zprávy Application.DisplayAlerts = Sub Sub Sub True calling_procedure ()' Volání makra DeleteVBComponent DeleteVBComponent ActiveWorkbook, „MainModule“ End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail