W tym artykule stworzymy makro do usuwania modułu ze skoroszytu.
Będziemy używać MainModule jako modułu surowego.
Chcemy pozbyć się tego modułu głównego.
Kliknij ten przycisk w tym samym.
Wyjaśnienie logiczne
W tym artykule stworzyliśmy dwa makra, DeleteVBComponent i call_procedure.
Usuń komponent VB
Pobiera nazwę skoroszytu i nazwę modułu jako dane wejściowe i usuwa moduł ze skoroszytu.
call_procedure
Służy do wywoływania makra DeleteVBComponent z aktywnym skoroszytem i modułem MainModule jako danymi wejściowymi.
Wyjaśnienie kodu
Application.DisplayAlerts = False
Ten kod służy do wyłączania komunikatu ostrzegawczego.
wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents(NazwaKomputera)
Ten kod służy do usuwania modułu ze skoroszytu.
Application.DisplayAlerts = Prawda
Ten kod służy do włączania komunikatu ostrzegawczego.
Proszę postępować zgodnie z poniższym kodem!
Option Explicit Sub DeleteVBComponent(ByVal wb As Workbook, ByVal CompName As String) 'Wyłączanie komunikatu ostrzegawczego Application.DisplayAlerts = False 'Ignoruj błędy przy błędzie Wznów Dalej 'Usuń składnik wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents(Comp ) On Error GoTo 0 'Włączanie komunikatu ostrzegawczego Application.DisplayAlerts = True End Sub Sub call_procedure() 'Wywołanie makra DeleteVBComponent DeleteVBComponent ActiveWorkbook, „MainModule” End Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail