ExcelVBA Tips(VBE)

モジュールが存在するかどうか知るには？

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

Point ：モジュールが存在するかどうか知りたい。

　'Book1.xlsに「MyModule」という名前のモジュールが存在するかどうかしらべます。

Sub Test()
Dim W_Book As Workbook
Dim VBpNo

Set W_Book = Workbooks("Book1.xls")

　　　For VBpNo = 1 To W_Book.VBProject.VBComponents.Count
　　　　If 　W_Book.VBProject.VBComponents(VBpNo).Name = "MyModule" Then
　　　　　　　MsgBox "MyModuleは存在します。"
　　　　　Exit Sub
　　　　End If
　　　Next VBpNo

End Sub

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