前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >VBA实用小程序52: 将所有VBA模块导出到另一工作簿

VBA实用小程序52: 将所有VBA模块导出到另一工作簿

作者头像
fanjy
发布2019-07-19 16:21:10
2.7K0
发布2019-07-19 16:21:10
举报
文章被收录于专栏:完美Excel

学习Excel技术,关注微信公众号:

excelperfect

有时候,我们觉得某工作簿中的代码很有用,想将它们移到另一工作簿中。可以在该工作簿的每个代码模块中单击鼠标右键,在快捷菜单中,使用“导出文件”命令(如下图1所示),将模块逐一导出到某个文件夹中,然后,打开想要导入模块的工作簿,在该工作簿的工程资源管理器中单击右键,选择导入文件,再将模块导入。

图1

上述过程需要重复执行导出导入操作,比较繁琐。下面的代码一次性将指定工作簿中除导出程序所在模块外的所有VBA模块导入到指定的另一工作簿:

Sub ExportModule()

Dim wbExport As Workbook

Dim wbImport As Workbook

Dim mdlModule As VBComponent

'要导出的模块所在的工作簿

Set wbExport =Workbooks("VBAProgram52.xlsm")

'要导入模块的工作簿

Set wbImport =Workbooks("ExportToWorkbook.xlsm")

'遍历代码模块

For Each mdlModule In wbExport.VBProject.VBComponents

'本代码所在的模块除外

If mdlModule.Name <>"ExportModule" Then

'将模块导出到临时文件夹中

mdlModule.Export("C:\temp\" & mdlModule.Name & ".bas")

'再将临时文件夹中的模块导入到指定工作簿

wbImport.VBProject.VBComponents.Import ("C:\temp\" &mdlModule.Name & ".bas")

End If

Next mdlModule

MsgBox "所有模块导出成功!"

End Sub

你可以将代码中相应的工作簿名称修改为实际的工作簿名称。

程序代码的图片版如下:

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2019-06-23,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 完美Excel 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档