VBA常用技巧代码解析

hgx602

thank very much

mafutz

感谢楼主，眼泪哗哗的

b_d

对於楼主这样无私的分享,
真是太感谢你了..

liangtony

这太好了，我收集及学习了！

caoyue96

谢谢楼主!楼主辛苦了.

hesilent

谢谢老师的无私

yuanzhuping

技巧188         VBE的操作
188-3        模块的导入与导出
       在使用InsertLines方法和CreateEventProc方法在模块中插入代码，如果插入的代码量较大时，编写的代码会比较长，此时更好的方法是将代码直接导入到模块中，如下面的代码所示。

1. #001  Sub CopyModule()
   
2. #002      Dim Nowbook As Workbook
   
3. #003      ThisWorkbook.VBProject.VBComponents("AddMatter").Export ThisWorkbook.Path & "\Tese.txt"
   
4. #004      Set Nowbook = Workbooks.Add
   
5. #005      With Nowbook
   
6. #006          .SaveAs Filename:=ThisWorkbook.Path & "" & "CopyModule.xls"
   
7. #007          .VBProject.VBComponents.Import ThisWorkbook.Path & "\CopyModule.txt"
   
8. #008          .Close Savechanges:=True
   
9. #009      End With
   
10. #010      Kill ThisWorkbook.Path & "\Tese.txt"
    
11. #011  End Sub

复制代码

代码解析：
       CopyModule过程将示例工作簿中的“AddMatter”模块导入到新建的工作簿“CopyModule.xls”中。
       第3行代码使用Export方法将“AddMatter”模块导出为文本文件。应用于VBComponent 对象的Export方法将部件按文件进行保存，语法如下：
       object.Export(filename)
       参数object是必需的，一个有效的对象表达式。
       参数filename是必需的，用来指定部件输出为文件的文件名称。
       第4行代码使用Add方法创建一个工作簿。关于Add方法请参阅技巧41 。
       第7行代码使用Import方法给新工作簿的VBA工程添加部件。Import方法从文件给工程添加部件，返回该被添加的新部件，语法如下：
       object.Import(filename) As VBComponent
       参数object是必需的，一个有效的对象表达式。
       参数filename是必需的，用来指定欲添加部件的路径及文件名称。
       第8行代码使用Close方法保存新建工作簿后关闭该工作簿。关于Close方法请参阅技巧48 。
       第10行代码使用Kill方法删除导出的文本文件。关于Kill方法请参阅技巧178 。
       运行CopyModule过程将创建新工作簿并把示例工作簿中的“AddMatter”模块导入到新工作簿中。

lhdcxz

我再次感谢yuanzhuping 版主的无私奉献！在您的技巧里学以致用，真解决了很多问题！

xuxz

谢谢!我正准备学习呀。。。。

245813092

超级感谢楼主，谢谢(⊙o⊙)哦