VBA常用技巧代码解析

hgx602 · 发表于 2009-6-20 21:04

thank very much

mafutz · 发表于 2009-6-20 22:23

感谢楼主，眼泪哗哗的

b_d · 发表于 2009-6-21 08:18

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

liangtony · 发表于 2009-6-21 14:43

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

caoyue96 · 发表于 2009-6-21 15:36

谢谢楼主!楼主辛苦了.

hesilent · 发表于 2009-6-21 15:56

谢谢老师的无私

yuanzhuping · 发表于 2009-6-22 10:56

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

#001 Sub CopyModule()
#002 Dim Nowbook As Workbook
#003 ThisWorkbook.VBProject.VBComponents("AddMatter").Export ThisWorkbook.Path & "\Tese.txt"
#004 Set Nowbook = Workbooks.Add
#005 With Nowbook
#006 .SaveAs Filename:=ThisWorkbook.Path & "" & "CopyModule.xls"
#007 .VBProject.VBComponents.Import ThisWorkbook.Path & "\CopyModule.txt"
#008 .Close Savechanges:=True
#009 End With
#010 Kill ThisWorkbook.Path & "\Tese.txt"
#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 · 发表于 2009-6-22 11:18

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

xuxz · 发表于 2009-6-22 11:31

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

245813092 · 发表于 2009-6-22 12:18

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

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

thank very much

第11部分其他应用

谢谢啦

VBA常用技巧代码解析

thank very much

第11部分 其他应用

谢谢啦

第11部分其他应用