VBAで保存されたマクロが有効なファイルを元のファイルに戻す

Question

私はここを見て、多くの解決策を試しましたが、期待通りにコードを実行できませんでした。

私は、私が作成した「オリジナル」

という名前のシートに一つのモジュールと1つのマクロ有効ブックを持っている「オリジナル」のシートをコピーして、コピーを保存するためのボタンを追加し、マスタとして第2のシートを持っていますマクロを有効にします。

コピーしたファイルを開くと、マクロは引き続き初期ファイルを参照します。ソースファイルをユーザーに配布することができないため、マクロをコピーしたファイルに入れるだけです。続き

は私が==>私はあなたの助けに感謝しますどのように私は、ファイル

Sub savefile(fname As String, compid As Long) 
    fname = "PS_" & fname 
    Set newBook = ActiveWorkbook 
    Application.DisplayAlerts = False 

     newBook.SaveAs fname, FileFormat:=xlOpenXMLWorkbookMacroEnabled 
     Application.DisplayAlerts = True 

    closefile newBook 

End Sub 

を保存するファイル

Sub createNew(fineName As String) 
    Dim mybook As Workbook 
    Set mybook = ThisWorkbook 
    Set newBook = Workbooks.Add 
    mybook.Sheets("Original").Copy Before:=newBook.Sheets(1) 
    Set newWs = newBook.Sheets("Original") 
    newWs.Name = Left(fineName, 30) 
End Sub 

をコピーする方法

==>私のコードです！

Answer 1

ありがとうございます。私は問題を解決することができた。あなたのコメントのおかげで私は私が新しくコピーされたファイルにモジュールをコピーするために持っていたが実現

Sub CopyOneModule() 
Dim FName As String 
With Workbooks("Book2") 
*** FName = .Path & "\code.txt" 
*** .VBProject.VBComponents("Module1").Export FName 
End With 
Workbooks("book1").VBProject.VBComponents.Import FName 
End Sub