HOME>TOP>VBE

ThisWorkbookのモジュール内のコードを消去するには？

キーワード>>VBProject・VBComponents・CodeModule・DeleteLines 1・CountOfLines

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
          .DeleteLines 1, .CountOfLines
  End With

End Sub

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