错误“下标超出范围”

Question

我想自动删除个人工作簿中存在的所有VBA模块，我正在尝试下面的代码，但这显示了错误9说“下标超出范围”，请帮助我解决此错误

Sub deletemodule()
    Dim vbCom As Object
    Dim i As Integer
    For i = 2 To 10
        On Error GoTo abc
        Set vbCom = Application.VBE.ActiveVBProject.VBComponents
        vbCom.Remove vbComponent:=vbCom.Item("Module" & i)
    Next
abc:
End Sub

提前致谢

Answer 1

尝试还原循环：

For i = 10 To 2 step -1
On Error GoTo abc
Set vbCom = Application.VBE.ActiveVBProject.VBComponents
vbCom.Remove vbComponent:=vbCom.Item("Module" & i)
Next

Answer 2

此代码从工作簿中删除所有“标准和类”模块。
请注意，还有其他类型-图表，表格，宏表格（？）

模块是一个集合，因此您可以使用For...Each循环逐步执行它们，而无需事先知道它们的数量或名称。

Public Sub DeleteAllModules()

    Dim vbcom As Object
    Dim vMod As Object

    Set vbcom = Application.VBE.ActiveVBProject.VBComponents

    For Each vMod In vbcom
        Select Case vMod.Type
            Case 1, 2 'Standard & Class modules
                vbcom.Remove vMod
            Case 100 'Sheet & ThisWorkbook modules
                'Do nothing
        End Select
    Next vMod

End Sub