マクロでExcelでエクスポートしたbasファイルを数フォルダに格納してあるExcelにインポートできるマクロが作成したい

Question

###前提・実現したいこと
Excelでエクスポートしたbasファイル【module1.bas】を数フォルダに格納してあるExcelにインポート出来るマクロを作成したいです。

###発生している問題・エラーメッセージ
basファイルのインポート、すでにExcelに存在している【module1.bas】の削除の方法が調べたのですが、できていません。

###該当のソースコード
検索で出てきたソースがこちらで、どのように修正したらいいのかが分かっていません。
1行目： Public Sub Sample_ImportModule_01()
2行目：
3行目： ' ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
4行目： ' 参照設定：
5行目： ' 「Microsoft Visual Basic for Application Extensibility」
6行目： ' ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
7行目：
8行目： ' このブックのVBProjectをオブジェクト変数に格納する。
9行目： Dim Obj As VBIDE.VBProject
10行目： Set Obj = ThisWorkbook.VBProject
11行目：
12行目： ' インポートしたいファイル名を決める。
13行目： Dim ImpFile As String
14行目： ImpFile = "C:\汎用モジュール\FileIOModule.bas"
15行目：
16行目： ' このブックにVBAモジュールをインポートします。
17行目： Obj.VBComponents.Import ImpFile
18行目：
19行目： ' オブジェクトを破棄する。
20行目： Set Obj = Nothing
21行目：
22行目： End Sub

###補足情報
前提として各フォルダに格納してあるExcelファイルは同一のファイル名で、フォルダの中にはファイルが存在しないフォルダもあり、そちらは何も処理しないようにしたいです。

分からないことが多いのに質問してしまい申し訳有りませんが、ヒントだけでもいいのでよろしくお願いします。
よろしくお願いいたします。

Answer 1

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"

尚、処理の流れはこんな感じでしょうかね

１）配布元エクセルでモジュールをエクスポート
２）配布先エクセルを検索
３）２）で見つけたエクセルからモジュールを削除
４）３）のエクセルへモジュールをインポートして上書き保存
５）配布先エクセルが無くなるまで２）～４）を繰り返す

ご参考まで

Comments

[atuy1120]

ありがとうございます。
別のところにボタンを作ってそこに教えていただいたソースをコピーする
→それを押下したら該当のエクセルを開いてモジュールを削除するって流れでいいのですかね？

[atuy1120]

追加してくださりありがとうございます。
最後に質問なのですが、各ディレクトリのエクセルを検索して開くというのは出来るのでしょうか？

[takito]

すみません、なぜか編集途中の内容で投稿されてしまったので内容を更新しました

そんな感じでやってみてください
うまくいかなかったら、また新しい質問で投稿されるとよいと思います

[takito]

各ディレクトリのエクセルを検索して開く→できます
[ vbaFileSystemObject ファイル検索] などで検索してみてください

[atuy1120]

ありがとうございます。
作成してみます。