Extracting modules from a different workbook via VBA? (corrupt file)

[dispelthemyth]

I have a corrupt file that i cant expand the project view on meaning i cant get to the point of seeing the modules and right clicking to export (it is password protecting and i am able to enter the password successfully)

Is there a way to export these modules using VBA when inside another workbook?

 

[Jaafar Tribak]

I have a corrupt file that i cant expand the project view on meaning i cant get to the point of seeing the modules and right clicking to export (it is password protecting and i am able to enter the password successfully)

Is there a way to export these modules using VBA when inside another workbook?

Have you tried something like this assuming the corrupt excel file and the expoting workbook are both opened in the same excel instance:

Call Workbooks("[COLOR=#ff0000][B]Book2[/B][/COLOR]").VBProject.VBComponents("[COLOR=#ff0000][B]Module1[/B][/COLOR]").Export(...

Change the items in red to suit.

 

[dispelthemyth]

Have you tried something like this assuming the corrupt excel file and the expoting workbook are both opened in the same excel instance:

Call Workbooks("[COLOR=#ff0000][B]Book2[/B][/COLOR]").VBProject.VBComponents("[COLOR=#ff0000][B]Module1[/B][/COLOR]").Export(...

Change the items in red to suit.

Thank you very much for the helpful code, i've been able to amend it to cycle through all the objects and extract. much appreciated.