|
このコードが書いてあるModule1のコードを挿入していますので、下記コードはModule2にでも書いてください。
使用状況に応じて、適当にカスタマイズしてください。
Sub マクロ削除挿入()
Dim 変更対象Book As Workbook, MCode As String
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
MCode = .Lines(1, .Countoflines)
End With
Application.ScreenUpdating = False
Set 変更対象Book = Workbooks.Open(ThisWorkbook.Path & "\" & "マクロ変更対象ブック.xls")
With 変更対象Book.VBProject.VBComponents("Module1").CodeModule
.deletelines 1, .Countoflines
.InsertLines 1, MCode
End With
変更対象Book.Close (True)
Application.ScreenUpdating = True
Set 変更対象Book = Nothing
End
End Sub
|
|