VBProject：代码操作代码之常用语句分析报告.doc

一、增加模块 ?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．删除类模块“类1”ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents(类1) ?4.删除所有的窗体 ?Sub RmvForms() ?? Dim vbCmp As VBComponent ?? For Each vbCmp In ThisWorkbook.VBProject.VBComponents ???? If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp ?? Next vbCmp ?End Sub ?? 相关： ?? 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 ?三、增加代码 ?1.在“模块1”中插入代码 ?如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 ?方法1： ?在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 ?Sub AddCode1() ??ThisWorkbook.VBProject.VBComponents(模块1).CodeModule.AddFromString _ ??? sub aTest() Chr(10) _ ??? msgbox Hello Chr(10) _ ??? end sub ?End Sub ?方法2： ?在模块指定行处增加代码，原代码后移。增加代码不理会和判断插入处代码的内容。当指定行大于最后一行行号时，在最后一行的后面插入。 ?Sub AddCode2() ? With ThisWorkbook.VBProject.VBComponents(模块1).CodeModule ???? .InsertLines 1, sub aTest() ???? .InsertLines 2, msgbox Hello ???? .InsertLines 3, end sub ?? End With ?End Sub ?相关语句： ?(1)“模块1”中代码总行数： ?ThisWorkbook.VBProject.VBComponents(模块1).CodeModule.CountOfLines ?(2)“模块1”中代码公共声明部分的行数： ?ThisWorkbook.VBProject.VBComponents(模块1).CodeModule.CountOfDeclarationLines ?(3)显示“模块1”中第1行起的3行代码内容： ?Sub ShowCodes() ?? Dim s$ ?? s = ThisWorkbook.VBProject.VBComponents(模块1).CodeModule.Lines(1, 3) ?? Debug.Print s ?End Sub ?(4)过程aTest的起始行数： ?ThisWorkbook.VBProject.VBComponents(模块1).CodeModule.ProcBodyLine(aTest,