在本文中，我们将创建一个宏以从工作簿中删除模块。

我们将使用MainModule作为原始模块。

ArrowMainModule

我们要摆脱这个MainModule。

单击相同的按钮。

ArrowMain

ArrowOutput

逻辑解释

在本文中，我们创建了两个宏，DeleteVBComponent和calling_procedure。

DeleteVBComponent

它以工作簿名称和模块名称作为输入，并从工作簿中删除模块。

calling_procedure

它用于使用活动工作簿和MainModule作为输入来调用DeleteVBComponent宏。

代码说明

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]