View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.programming
Bob Phillips[_6_] Bob Phillips[_6_] is offline
external usenet poster
 
Posts: 11,272
Default Macro to save Macros

Change that variable to 0 (zero)

--

HTH

RP
(remove nothere from the email address if mailing direct)


"davegb" wrote in message
ups.com...
Modified the macro and declared VBComp as Object. Now I'm getting
"Variable not defined" on vbext_ct_ClassModule. I don't recognize this
kind of variable. How do I define it?
I don't know how to reference the extensibility library.
Thanks.

Bob Phillips wrote:
You need to set a reference to the Microsoft Visual Basic for

Applications
Extensibility library, or just use

Dim VBComp As Object

--

HTH

RP
(remove nothere from the email address if mailing direct)


"davegb" wrote in message
oups.com...
Thanks for all your replies!
Steve,
When I try to run your macro, I'm getting a "User defined type not
defined" error on the

Dim VBComp As VBIDE.VBComponent

line. I tracked it down on Chip's page, and found that it needs access
to a file in Winhelp which I can't access. Is there a workaround for
that?
Thanks!

STEVE BELL wrote:
This is from Chip Pearson's site -

http://www.cpearson.com/excel/vbe.htm



Exporting All Modules In A Project
The procedure below will list export all of the modules in a

workbook to
text files. It will save the files in the same folder as the

workbook.
This
can be useful for saving a backup copy of your VBA, or for

transferring
VBA
code from one project to another.

Sub ExportAllVBA()
Dim VBComp As VBIDE.VBComponent
Dim Sfx As String

For Each VBComp In ActiveWorkbook.VBProject.VBComponents
Select Case VBComp.Type
Case vbext_ct_ClassModule, vbext_ct_Document
Sfx = ".cls"
Case vbext_ct_MSForm
Sfx = ".frm"
Case vbext_ct_StdModule
Sfx = ".bas"
Case Else
Sfx = ""
End Select
If Sfx < "" Then
VBComp.Export _
Filename:=ActiveWorkbook.Path & "\" & VBComp.Name & Sfx
End If
Next VBComp
End Sub



--
steveB

Remove "AYN" from email to respond
"Jim Thomlinson" wrote in message
...
You have lost me a bit here. When you save a spreadsheet all of

the
macros
are saved with it. If you have any modules, classes or forms that

are
particularily useful and you would want to use them in other

projects
you
can
export them, to be imported into the other porjects. With addin's

you
just
have to remember to save them when you make changes and before you

exit
excel
(or remove the addin). If this does not cover it let us know... Or

maybe I
am
just missing something...
--
HTH...

Jim Thomlinson


"davegb" wrote:

I googled here, but no joy. So, is it possible to create a macro

to
save all my macros? I've accumulated quite a set by now, with a

lot
of
help here, and I've saved the modules. But it's getting tedious

to
save
them all. Has anyone done this?