スキルアップ・問題解決なら、モーグにおまかせ！

マクロマスターデータ(wbマスター)で作成した標準モジュールの初版を特定のフォルダに保存し(いちいちエクスポートするのが面倒なので.basは更新しない)、以後必要があればwbマスターの標準モジュールを随時更新し、各ブックに最新のマクロをインポートしようとしています。
この時、以下のコードの赤文字部分のスマートな書き方があれば教えて頂けないでしょうか
 

読込マクロ = Dir(フォルダ & "*.bas")
完了 = False
  Do While 読込マクロ <> ""
   コード = ""
   有無 = False
   With wbマスター.VBProject.VBComponents(fso.GetBaseName(読込マクロ)).CodeModule
    コード = .Lines(1, .CountOfLines)
   End With
   有無 = False

     If 書込マクロ.Name = fso.GetBaseName(読込マクロ) Then
      Exit For
     End If
    Next 書込マクロ
    With .Item(fso.GetBaseName(読込マクロ)).CodeModule
     .DeleteLines 1, .CountOfLines
     .AddFromString コード
    End With
   End With
   読込マクロ = Dir()
  Loop

何が スマートではない で、何がスマート なのか・・
 
With で コレクションに対し操作を行っているにも関わらず
 
Parent.コレクション の様に
上位オブジェクトに戻って 参照し、そこから コレクションを参照し直しているのが気に入らない
って事でしょうか？
 
 
With の対象を 初めから 上位オブジェクトにすれば良いのでは？
 
または For Each ではなく
With ThisWorkbook.VBProject.VBComponents
  For i = 1 To .Count
     .Item(i).〜〜
  Next
End With
の様にすれば良いと思います。
 
でも・・
提示されたコード。。
問題にしている部分、必要があると思えません。
別に提示されていない何かがあるのかな？？
 
そうだとしても、同じコレクションに対し、何度も名前チェックをするフローの方が気になります。
Dictionary を使うなり やりようはあると思います。

Suzuさん
 
コメントありがとうございます。
.VBComponentsが比較的長い単語(？)なのでまとめたかったのですが、出来ないんですね。
他にも応用できると思っていたのですが、甘かったようです。
 
仰る通り、これだけだと該当部分は要らないですね…
実際には、ブックにより「読込マクロ」が無い場合があるため、質問部分付近は
以下のように、無いときは.basを持ってくる処理を入れています。
質問に関係ない部分なので省いていました。
Dictionaryについては使い慣れていないので、これを機に勉強し直そうと思います。
ありがとうございました。
 

    有無 = False
    With ThisWorkbook.VBProject.VBComponents
     For Each 書込マクロ In .Parent.VBComponents
      If 書込マクロ.Name = fso.GetBaseName(読込マクロ) Then
       有無 = True
       Exit For
      End If
     Next 書込マクロ
     If 有無 = False Then
      .Import フォルダ & 読込マクロ
     End If
     With .Item(fso.GetBaseName(読込マクロ)).CodeModule

しようとしていること自体、理解することができませんが、
.ｂＡＳファイルにエクスポートせずに、
「参照設定」する方法はダメなんですか？

WinArrowさん
 
コメントありがとうございます。
 
参照設定だと、自分のパソコンでしか利用できない認識です。
対して、このエクセルはチームメンバーで共有や自PC以外(チーム共通PC)で使うため、せめて自PCで開いたときぐらいは更新してエクセル自体にコードを載せておきたいという思いから、こんな面倒なことをしています。

>参照設定だと、自分のパソコンでしか利用できない認識です。
 
ＶＢＡで動的に参照設定可能です。
 
>以後必要があればwbマスターの標準モジュールを随時更新し、各ブックに最新のマクロをインポートしようとしています。
 
インポートするコードの内容が分からないので、
余計な心配かもしれませんが、
ワークシートのレイアウトは、各ＰＣとも整合しているのでしょうか？

フラグの判定処理が入っているのですね。それであれば必要でしょう。
 
 

引用:
.VBComponentsが比較的長い単語(？)なのでまとめたかったのですが、出来ないんですね。
他にも応用できると思っていたのですが、甘かったようです。