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,

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("ThisWorkboo k") _
.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)


"utdcr" wrote in message
...
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,

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

-----Original Message-----
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,


.

That works! Thanks Bob!

I love this forum!

utdcr.

"Bob Phillips" wrote:

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("ThisWorkboo k") _
.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)


"utdcr" wrote in message
...
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,