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
- 27709 reads
Recent comments
5 years 1 week ago
5 years 39 weeks ago
5 years 51 weeks ago
6 years 1 week ago
6 years 2 weeks ago
6 years 8 weeks ago
6 years 16 weeks ago
6 years 16 weeks ago
6 years 16 weeks ago
6 years 16 weeks ago