How to write a macro to import an event procedure to ThisWorbook?

[Guest]

Hello,

I have an event procedure (Workbook_BeforeSave) which I tried to write a
macro to import into ThisWorkbook. The reason for doing this is that I try to
format this procedure into 1200 Excel files and it is impossible I do it
manually.

I tried to use the following code to accomplish this. But it didn't work.

With ThisWorkbooks.VBProject.VBComponents
.Import impfile
End With

It was imported but didn't go to ThisWorkbook. It added a new module instead.

Anyone can help me to resolve this problem? This is my 1st post in this forum.

Thanks a lot!

utdcr,

 

[Bob Phillips]

ThisWorkbook is a class module, and as such you cannot import the file
because import creates the modules, and ThisWorkbook already exists. .

You could try AddFromFile. Save the code in a text file and use this code

ActiveWorkbook.VBProject.VBComponents("ThisWorkbook") _
.CodeModule.AddFromFile "C:\myTest\Text1.txt"

where the text file holds the vcomplete event code.

The problem is that you could add an event that is already present.


--

HTH


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

 

[Guest]

hi,
check this site out.
http://cpearson.com/excel/vbe.htm
lot of good info on writting code with code.

 

[Guest]

That works! Thanks Bob!

I love this forum!

utdcr.