ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("模块1")编辑错误，参数不可选

这个错误是因为在 VBA 中，不能直接删除当前正在执行的模块。如果您想删除该模块，请将它保存到另一个文件中，然后再从该文件中删除它。

以下是一种可能的解决方法：

1. 将该模块另存为另一个文件。

2. 在新文件中打开该模块并删除它。

3. 保存并关闭新文件。

4. 在原始文件中，使用以下代码删除该模块：

Dim VBComp As Object
Set VBComp = ThisWorkbook.VBProject.VBComponents("模块1")
ThisWorkbook.VBProject.VBComponents.Remove VBComp

注意，这段代码应该不在模块1中运行，而是在另一个模块或工作表事件中运行。

相关问题

vba删除所有宏模块的代码

你可以使用以下VBA代码删除所有的宏模块：

Sub DeleteAllModules()
    Dim mod As Object
    
    For Each mod In ThisWorkbook.VBProject.VBComponents
        If mod.Type = vbext_ct_StdModule Then
            ThisWorkbook.VBProject.VBComponents.Remove mod
        End If
    Next mod
End Sub

这段代码会循环遍历所有的VBA模块，如果模块的类型是标准模块（即宏模块），则将其删除。请注意，这会删除所有的宏模块，包括其中的代码，因此请确保在执行此代码之前备份您的工作簿。

Excel vba删除所有宏模块的代码

你可以使用以下VBA代码删除所有的宏模块：

Sub DeleteAllModules()
   Dim i As Integer
   For i = ThisWorkbook.VBProject.VBComponents.Count To 1 Step -1
      ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents(i)
   Next i
End Sub

这个代码会循环遍历所有的VBComponents，然后逐个删除它们。请注意，这个操作不能被撤消，所以在执行之前请确保备份你的工作簿。