すべてのVBAモジュールをExcelファイルから削除しますか？

Question

VBAを使用してExcelファイルからすべてのVBAモジュールを削除することはできますか？

このスクリプトを実行する前に、モジュールが存在する場合の名前は不明です。

Answer 1

もちろん、可能です。次のコードは、仕事を行います。

Sub compact_code() 

On Error Resume Next 
    Dim Element As Object 
    For Each Element In ActiveWorkbook.VBProject.VBComponents 
     ActiveWorkbook.VBProject.VBComponents.Remove Element 
    Next 

End Sub 

これはClassModulesとユーザーフォームを含むすべてのモジュールを削除しますが、すべてのオブジェクトモジュール（シート、ワークブック）を維持します。ここで

Answer 2

はClassModulesを削除する同様の代替です：

On Error Resume Next 
With wbk.VBProject 
    For x = .VBComponents.Count To 1 Step -1 
     If .VBComponents(x).Type = vbext_ct_StdModule Then 
      .VBComponents.Remove .VBComponents(x) 
     End If 
    Next x 
End With 
On Error GoTo 0