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

下载本文档

10
0
约5.62千字
约 8页
2017-03-26 发布于湖北
举报
版权申诉

VBProject：代码操作代码之常用语句精读.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

一、增加模块 ?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,