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 你可以将代码中相应的工作簿名称修改为实际的工作簿名称。 程序代码的图片版如下: |
|