質問: Nothing 21行目: 22行目: End Sub ### 補足情報 前提として各フォルダに格納してあるExcelファイルは同一のファイル名で、フォルダの中にはファイルが存在しないフォルダもあり、そちらは何も処理しないようにしたいです。 分からないことが多いのに質問してしまい申し訳有りませんが、ヒントだけでもいいのでよろしくお願いします。 よろしくお願いいたします。
回答: `Module1`だけを削除したい場合はこんな感じです ``` Dim component As Variant For Each component In ThisWorkbook.VBProject.VBComponents If component.Name = "Module1" Then Call ThisWorkbook.VBProject.VBComponents.Remove(component) Exit For End If Next ``` インポートは以下でできます ``` ThisWorkbook.VBProject.VBComponents.Import "C:\module1.bas" ``` ちなみにエクスポートは以下です ``` ThisWorkbook.VBProject.VBComponents("Module1").Export "C:\module1.bas" ``` 尚、処理の流れはこんな感じでしょうかね 1)配布元エクセルでモジュールをエクスポート 2)配布先エクセルを検索 3)2)で見つけたエクセルからモジュールを削除 4)3)のエクセルへモジュールをインポートして上書き保存 5)配布先エクセルが無くなるまで2)~4)を繰り返す ご参考まで