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

学习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

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

程序代码的图片版如下：

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

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