HOME>TOP>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


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