VBProject代码操作代码之常用语句.docVIP

一、增加模块 ?1．增加一个模块，命名为“我的模块” ?? ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = 我的模块 ?? 系统常量vbext_ct_StdModule=1 ?2．增加一个类模块，命名为“我的类” ?? ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = 我的类 ?? vbext_ct_ClassModule=2 ?3．增加一个窗体，命名为“我的窗体” ?? ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = 我的窗体 ?? vbext_ct_MSForm=3 ?二、删除模块 ?1．删除“模块1”ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents(模块1) ?2．删除窗体“UserForm1”?ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents(UserForm1) ?3．删除类模块“类