HOME>TOP>VBE

ThisWorkbookのモジュールにコードを書き込むには？

キーワード>>VBProject・VBComponents・CodeModule・InsertLines

Point ：ThisWorkbookのモジュールにコードを書き込みたい。
   
   　'Book1.xlsのThisWorkbookのモジュールにコードを書き込みます。

Sub Test()
 Dim W_Book  As Workbook

    Set W_Book = Workbooks("Book1.xls")

　　With W_Book.VBProject.VBComponents.Item("ThisWorkbook").CodeModule
　　　　.InsertLines 1, "Private Sub Workbook_Open()"
　　　　.InsertLines 2, ""
　　　　.InsertLines 3, "　　　Msgbox""ブックが開かれましたよ！"""
　　　　.InsertLines 4, ""
　　　　.InsertLines 5, "End Sub"
　　End With

End Sub

掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。