VBA常用技巧代码解析

deleboy

谢了，解决了一些实际的东西。每天拜读两小时，无以回报，无言感谢，努力学习，以版主为榜样。

yyj2008

真是好东西，我要好好学习

maillgh

非常感谢版主！刚刚下载完，看了一下，内容很精彩，实用。再次感谢！

yuanzhuping

技巧188         VBE的操作
188-4        删除宏代码
       在将一个含有宏代码的工作簿拷贝给用户使用时，如果用户并不需要其中的宏代码，可以使用代码删除其中部分或全部的宏代码后再拷贝给用户使用，如下面的代码所示。

1. #001  Sub DelMacro()
   
2. #002      Dim Wb As Workbook
   
3. #003      Dim FileName As String
   
4. #004      Dim Vbc As VBComponent
   
5. #005      FileName = ThisWorkbook.Path & "\DelMacro.xls"
   
6. #006      Application.EnableEvents = False
   
7. #007      Set Wb = Workbooks.Open(FileName)
   
8. #008      For Each Vbc In Wb.VBProject.VBComponents
   
9. #009          If Vbc.Type <> vbext_ct_Document Then
   
10. #010              If Vbc.Name = "NowModule" Then
    
11. #011                  Vbc.CodeModule.DeleteLines 3, Vbc.CodeModule.CountOfLines - 4
    
12. #012              Else
    
13. #013                  Wb.VBProject.VBComponents.Remove Vbc
    
14. #014              End If
    
15. #015          End If
    
16. #016      Next
    
17. #017      'Wb.Close True
    
18. #018      Application.EnableEvents = True
    
19. #019  End Sub

复制代码

代码解析：
       DelMacro过程删除“DelMacro.xls”工作簿中的部分宏代码。
       第5行代码指定需要删除宏代码的工作簿。
       第6行代码打开工作簿时禁止触发事件。
       第7行代码使用Open方法打开指定工作簿。关于Open方法请参阅技巧42 。
       第8行代码遍历指定工作簿中所有的VBA部件。
       第9行代码保留Excel对象事件的代码。应用于VBComponent对象的Type属性返回对象的类型，常用的Type属性值如表格所示。
      
       第10、11行代码，如果模块名称是“NowModule”则删除其中指定行数代码。应用于CodeModule对象的DeleteLines方法删除一个单行或指定行范围的代码，语法如下：
       object.DeleteLines (startline) [count]
       参数object是必需的，一个有效的对象表达式。
       参数startline是必需的，用来指定删除的开始行。
       参数count是可选的，用来指定删除的行数。如果没有指定count参数，则只删除一行代码。
       而应用于CodeModule对象的CountOfLines属性返回代码模块中的总行数。
      第13行代码，如果不是需保留的项目全部则删除。应用于VBComponents集合的Remove方法从集合中删除项目，语法如下：
       object.Remove(component)
       参数object是必需的，一个有效的对象表达式。
       参数component是必需的，对于VBComponents集合，代表一个类模块、一个窗体，或者是一个标准模块。
       在示例所在文件夹中的“DelMacro.xls”工作簿的VBA项目中有两个模块、一个用户窗体及一个BeforeClose事件过程，运行DelMacro过程，只保留其中的BeforeClose事件过程和“NowModule”模块中的部分代码，其他的全部删除。
       为了演示方便在“DelMacro.xls”工作簿的BeforeClose事件过程中将Saved属性设置为True使其关闭时不保存修改。在实际应用中应该在DelMacro过程的最后添加一行保存后关闭“DelMacro.xls”工作簿的代码：
      Wb.Close True
       使用Close方法关闭“DelMacro.xls”工作簿，请参阅技巧45 。

[ 本帖最后由 yuanzhuping 于 2009-6-23 15:08 编辑 ]

lcz197474

感谢楼主的辛勤劳动！！！！

winddna

感谢楼主的分享~~

long1111

谢谢了

long1111

看上去有点问题 不过还是谢谢了

long1111

版主辛苦啦！修整一下吧。期待再回来。

long1111

再次感谢 哈哈