Batch export/import of modules

[VBAProIWish]

Hello All,

I have a WB with about 80 modules in it. I want to take around 30 of them and put them into another user's WB.

I know that I can export each individual module from MY WB and then import each individual module to THEIR WB which will be very time-consuming. I'm thinking that there must be a faster way.

Is there a way to highlight only the modules you want to export and then "package them together" so that I can simply export and then import them as a "package"?

Thanks

 

[tlowry]

Here is my suggestion

Sub ExportMods exports all modules and makes a list in Column B

Open the workbook into which you wish to import the modules.
Paste the list in Column B
Run ImportMods

Some things you need to do

• Edit the path from C:\Temp
• Edit the list for the correct modules
• Backup
• Test
• Test

Option Explicit
Sub ExportMods()
    Dim i As Integer
    With ActiveWorkbook.VBProject.VBComponents
        For i = 1 To .Count
            Range("A1").Offset(i - 1, 0).Value = .Item(i).Type
            Range("A1").Offset(i - 1, 1).Value = .Item(i).Name
            .Item(i).Export "C:\Temp\" & .Item(i).Name & ".bas"
        Next i
    End With
End Sub
Sub ImportMods()
Dim x
    With ActiveWorkbook.VBProject.VBComponents
        For i = 0 To WorksheetFunction.CountA(Range("A:A")) - 1
            .import "C:\Temp\" & Range("B1").Offset(i, 0).Text & ".bas"
        Next i
    End With
End Sub

 

[VBAProIWish]

I will try and work with this code. Thanks for the help.

 

[nigelandrewfoster]

Thanks a million