В тази статия ще създадем макрос за изтриване на модул от работната книга.
Ще използваме MainModule като суров модул.
Искаме да се отървем от този MainModule.
Кликнете върху този бутон за същото.
Логично обяснение
В тази статия създадохме два макроса, DeleteVBComponent и call_procedure.
Изтрийте VBComponent
Той приема името на работната книга и името на модула като входни данни и изтрива модула от работната книга.
call_procedure
Използва се за извикване на макроса DeleteVBComponent с активната работна книга и MainModule като входове.
Обяснение на кода
Application.DisplayAlerts = False
Този код се използва за деактивиране на предупредителното съобщение.
wb.VBProject.VBCcomponents.Remove wb.VBProject.VBComponents (CompName)
Този код се използва за премахване на модула от работната книга.
Application.DisplayAlerts = Вярно
Този код се използва за активиране на предупредителното съобщение.
Моля, следвайте кода по -долу
Опция Изрично допълнително изтриване VBComponent (ByVal wb Като работна книга, ByVal CompName като низ) „Деактивиране на предупредителното съобщение Application.DisplayAlerts = False„ Игнориране на грешки при възобновяване на грешка Следваща “Изтрийте компонента wb.VBProject.VBComponents.Remove wb.VBProject.BC ) On Error GoTo 0 'Активиране на предупредителното съобщение Application.DisplayAlerts = True End Sub Sub call_procedure ()' Calling DeleteVBComponent macro DeleteVBComponent ActiveWorkbook, "MainModule" End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта