Export all modules to another workbook
'Use this code to export all modules from Personal.xlsb file to another workbook. Prior to running macro, open target workbook and change its name in the code accordingly.
Sub ExportImportModule()
For Each Module In Workbooks("Personal.xlsb").VBProject.VBComponents
If Module.name <> "ExportImportModule" Then
Module.Export ("c:\temp\" & Module.name & ".bas")
Workbooks("TargetWorkbook.xlsm").VBProject.VBComponents.Import ("c:\temp\" & Module.name & ".bas")
End If
Next Module
MsgBox "All objects (modules, forms and classes) were copied!"
End Sub
- Almir's blog
- Login or register to post comments
- 29673 reads
Recent comments
5 years 20 weeks ago
6 years 6 weeks ago
6 years 17 weeks ago
6 years 20 weeks ago
6 years 21 weeks ago
6 years 27 weeks ago
6 years 35 weeks ago
6 years 35 weeks ago
6 years 35 weeks ago
6 years 35 weeks ago