他の多くのファイルにコード、ユーザーフォーム、ボタンを適用するにはどうすればいいですか？

Question

VBAにはまったく新しいものです。私はさまざまなことをするコードを書いており、どこにいるのかにはかなり満足しています。

これは、サブ機能を呼び出すExcelシートのボタンによってトリガーされます。

私が抱えている問題は、私がコードを書いたExcelシートは、私たちが頻繁に職場で使用し、コピーを保存するシートだということです。これは見積もり形式であり、1つのフォルダに5,000以上の異なる見積書のコピーがあります。

私はコピーのうちの1つにしかコードを書いていないので、ボタンとコード/ユーザーフォームを「ソース」ブックから指定した他のすべてのものにコピーするプログラムや何かを作成する方法がありますフォルダ？

ボタンが同じ場所にあるので、一貫性があります。

Answer 1

また、このコードは、フォルダ

Sub Demo() 

    Dim s As String 
    Dim wb As Workbook 
    s = Dir("\\yourfolderpath\yourdoldername\*.xlsm") 
    Do While s <> "" 
     Set wb = Workbooks.Open("\\yourfolderpath\yourdoldername\" & s) 

     Dim VBComps As VBIDE.VBComponents 
     Dim VBComp As VBIDE.VBComponent 

     Set VBComps = wb.VBProject.VBComponents 
     For Each VBComp In VBComps 
      If VBComp.Name = "Your module name" Then 
       VBComps.Remove VBComp 
       Exit For 
      End If 
     Next VBComp 

     VBComps.Import "C:\your dir\your module name.bas" 
     wb.Close True 
     s = Dir() 
    Loop 


End Sub 

内のすべてのスプレッドシートに.BASファイルとして保存されたコードモジュールをインポートします。しかし - あなたはセキュリティにチェックを入れ、「VBAプロジェクトモデルへのアクセスを信頼する」持っている必要がありますVisual Basic for Applications ExtensibilityのリファレンスをVisual Basicのエディタで参照しています。