Export All Modules In Current Project

Good day Ozgrid. I'm trying to write some code to export all the standard modules (not class or worksheet modules) in my project to a directory on the network. I'm looking for something like below, but can't quite find the syntax to get the modules collection.

I know this syntax is not correct, but I'm sure it has to be something kind of similar to this.

Any help would be great.

Dim MyModules as collection
Dim MyModule as module


Set MyModules = currentproject.modules
For each MyModule in MyModules
MyModule.export "x:\directory1\Directory2\File.bas"


next MyModule

Re: Export All Modules In Current Project

Thanks for the link, but this code doesn't appear to work.

Besides, the best I can tell, it is only designed to export a single module.

I need code to loop through and export all the modules regardless of how many there are.

Re: Export All Modules In Current Project

Thank you Andy Pope.

One Hitch. I appear to be missing a reference. Do you know what I need to reference to have access to the VBProject variable type?

Other then that this is EXACTLY what I was looking for. I knew it would be something like that, I just didn't know how to reference the correct collections.

Thanks again.

PS, do you know if this code will work in MSAccess too?

Re: Export All Modules In Current Project

One Hitch. I appear to be missing a reference. Do you know what I need to reference to have access to the VBProject variable type?

Your comment says 'extensibility library', but I can't find one with that name.

Re: Export All Modules In Current Project

I'm getting an error on the following line.

Set objMyProj = Application.VBE.ActiveVBProject

Error says... "Method 'VBE of object '_Application' failed'

I have added the reference to Extensibility...

Any help?

Re: Export All Modules In Current Project

That did the trick. Thank you very much Andy. You're to bomb man.

Re: Export All Modules In Current Project

It was Excel, but selecting that check box fixed the code.

It runs now. Thank you again.

Re: Export All Modules In Current Project

Thank you both for your help. Ozgrid comes through again. I love this forum. Attached is the code I needed this for. If anyone can use it, please do.

The code is designed to save the SQL of all saved Queries in a MS Access DB as a text file.
To save field definitions for all tables
and

The part you all helped me with

Export all modules stored in the DB.

This serves as documentation/back-up of the database design.