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
- 31615 reads
Recent comments
6 years 12 weeks ago
6 years 50 weeks ago
7 years 9 weeks ago
7 years 12 weeks ago
7 years 13 weeks ago
7 years 19 weeks ago
7 years 27 weeks ago
7 years 27 weeks ago
7 years 27 weeks ago
7 years 27 weeks ago