ExcelVBA Tips(VBE)

標準モジュールを追加しコードを書き込むには？

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

Point ：標準モジュールを追加してそこにコードを書き込みたい。

Sub Test()
Dim W_Book As Workbook
Dim Modu

    Set W_Book = Workbooks("Book1.xls")

　　Set Modu = W_Book.VBProject.VBComponents.Add(1)
　　'標準モジュールを追加
　　　
      Modu.Name = "MyModule"
     '標準モジュールの名前を変更

　　With W_Book.VBProject.VBComponents.Item(Modu.Name).CodeModule

        .InsertLines 1, "Sub Auto_Open()"
        .InsertLines 2, ""
        .InsertLines 3, " 　　MsgBox " "ブックが開かれましたよ！"""
        .InsertLines 4, ""
        .InsertLines 5, "End Sub"

   End With

End Sub

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