HOME>TOP>VBE

シートのモジュール内のコードを消去するには?


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

Point :シートのモジュールにコードを消したい。
   
  
 'Book1.xlsのSheet1のモジュール内のコードを消去します。

Sub Test()
 Dim W_Book  As Workbook

    Set W_Book = Workbooks("Book1.xls")

  With W_Book.VBProject.VBComponents.Item("Sheet1").CodeModule
          .DeleteLines 1, .CountOfLines
  End With

End Sub


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