В этой статье мы создадим макрос для удаления модуля из книги.

Мы будем использовать MainModule как необработанный модуль.

ArrowMainModule

Мы хотим избавиться от этого MainModule.

Нажмите на эту кнопку для того же.

ArrowMain

ArrowOutput

Логическое объяснение

В этой статье мы создали два макроса: DeleteVBComponent и call_procedure.

DeleteVBComponent

Он принимает имя книги и имя модуля в качестве входных данных и удаляет модуль из книги.

процедура_вызова

Он используется для вызова макроса DeleteVBComponent с активной книгой и MainModule в качестве входных данных.

Объяснение кода

Application.DisplayAlerts = False Этот код используется для отключения предупреждающего сообщения.

wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents (CompName)

Этот код используется для удаления модуля из книги.

Application.DisplayAlerts = True Этот код используется для включения предупреждающего сообщения.

Пожалуйста, введите код ниже

Option Explicit

Sub DeleteVBComponent(ByVal wb As Workbook, ByVal CompName As String)

'Disabling the alert message

Application.DisplayAlerts = False

'Ignore errors

On Error Resume Next

'Delete the component

wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents(CompName)

On Error GoTo 0

'Enabling the alert message

Application.DisplayAlerts = True

End Sub

Sub calling_procedure()

'Calling DeleteVBComponent macro

DeleteVBComponent ActiveWorkbook, "MainModule"



End Sub

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]