Can I add code to ThisWorkbook module with VBA extensibility?
 

I need to copy some event procedures from one Thisworkbook module to another
Thisworkbook module, I have some code but it crashes Excel, can someone tell
what I'm doing wrong?

filename1 = ThisWorkbook.Path & "\tempmoditerate.bas"
filename2 = ThisWorkbook.Path & "\tempmodrunsfgcalcs.bas"
filename3 = ThisWorkbook.Path & "\tempmodsfcalcs.bas"
filename4 = ThisWorkbook.Path & "\tempmain.bas"

ThisWorkbook.VBProject.vbcomponents("modIterate"). Export filename1
ThisWorkbook.VBProject.vbcomponents("runsfgcalcs") .Export filename2
ThisWorkbook.VBProject.vbcomponents("sfcalcs").Exp ort filename3
ThisWorkbook.VBProject.vbcomponents("ThisWorkbook" ).Export filename4

Set vbp = ActiveWorkbook.VBProject
On Error Resume Next
With vbp.vbcomponents
.Remove vbp.vbcomponents("moditerate")
.Import filename1
.Remove vbp.vbcomponents("runsfgcalcs")
.Import filename2
.Remove vbp.vbcomponents("sfcalcs")
.Import filename3
Lines = vbp.vbcomponents("thisworkbook").CodeModule.counto flines
vbp.vbcomponents("thisworkbook").CodeModule.delete lines 1, Lines
vbp.vbcomponents("thisworkbook").CodeModule.addfro mfile filename4
vbp.vbcomponents("thisworkbook").CodeModule.delete lines 1, 4
End With

Kill filename1
Kill filename2
Kill filename3
Kill filename4

Can I add code to ThisWorkbook module with VBA extensibility?
 

U¿ytkownik "mikeb" napisa³ w wiadomo¶ci
...
I need to copy some event procedures from one Thisworkbook module to
another
Thisworkbook module, I have some code but it crashes Excel, can someone
tell
what I'm doing wrong?

filename1 = ThisWorkbook.Path & "\tempmoditerate.bas"
filename2 = ThisWorkbook.Path & "\tempmodrunsfgcalcs.bas"
filename3 = ThisWorkbook.Path & "\tempmodsfcalcs.bas"
filename4 = ThisWorkbook.Path & "\tempmain.bas"

ThisWorkbook.VBProject.vbcomponents("modIterate"). Export filename1
ThisWorkbook.VBProject.vbcomponents("runsfgcalcs") .Export filename2
ThisWorkbook.VBProject.vbcomponents("sfcalcs").Exp ort filename3
ThisWorkbook.VBProject.vbcomponents("ThisWorkbook" ).Export filename4

Set vbp = ActiveWorkbook.VBProject
On Error Resume Next
With vbp.vbcomponents
.Remove vbp.vbcomponents("moditerate")
.Import filename1
.Remove vbp.vbcomponents("runsfgcalcs")
.Import filename2
.Remove vbp.vbcomponents("sfcalcs")
.Import filename3
Lines = vbp.vbcomponents("thisworkbook").CodeModule.counto flines
vbp.vbcomponents("thisworkbook").CodeModule.delete lines 1, Lines
vbp.vbcomponents("thisworkbook").CodeModule.addfro mfile filename4
vbp.vbcomponents("thisworkbook").CodeModule.delete lines 1, 4
End With

Kill filename1
Kill filename2
Kill filename3
Kill filename4

try to look he
http://www.cpearson.com/excel/vbe.htm
mcg

Can I add code to ThisWorkbook module with VBA extensibility?
 

mikeb,

I tried this on one machine yesterday that had Norton Antivirus and it
caused a problem because it thought the workbook with this code had a virus
"mikeb" wrote in message
...
I need to copy some event procedures from one Thisworkbook module to
another
Thisworkbook module, I have some code but it crashes Excel, can someone
tell
what I'm doing wrong?

filename1 = ThisWorkbook.Path & "\tempmoditerate.bas"
filename2 = ThisWorkbook.Path & "\tempmodrunsfgcalcs.bas"
filename3 = ThisWorkbook.Path & "\tempmodsfcalcs.bas"
filename4 = ThisWorkbook.Path & "\tempmain.bas"

ThisWorkbook.VBProject.vbcomponents("modIterate"). Export filename1
ThisWorkbook.VBProject.vbcomponents("runsfgcalcs") .Export filename2
ThisWorkbook.VBProject.vbcomponents("sfcalcs").Exp ort filename3
ThisWorkbook.VBProject.vbcomponents("ThisWorkbook" ).Export filename4

Set vbp = ActiveWorkbook.VBProject
On Error Resume Next
With vbp.vbcomponents
.Remove vbp.vbcomponents("moditerate")
.Import filename1
.Remove vbp.vbcomponents("runsfgcalcs")
.Import filename2
.Remove vbp.vbcomponents("sfcalcs")
.Import filename3
Lines = vbp.vbcomponents("thisworkbook").CodeModule.counto flines
vbp.vbcomponents("thisworkbook").CodeModule.delete lines 1, Lines
vbp.vbcomponents("thisworkbook").CodeModule.addfro mfile filename4
vbp.vbcomponents("thisworkbook").CodeModule.delete lines 1, 4
End With

Kill filename1
Kill filename2
Kill filename3
Kill filename4

Can I add code to ThisWorkbook module with VBA extensibility?
 

(woops)

mikeb,

I tried this on one machine yesterday that had Symantec Antivirus and it
caused a problem because it thought the workbook with this code had a virus
called "Bloodhound.ExcelMacro." When I tried it on another machine, it ran,
although I only had the export Filename4 lines.

hth,

Doug

"mikeb" wrote in message
...
I need to copy some event procedures from one Thisworkbook module to
another
Thisworkbook module, I have some code but it crashes Excel, can someone
tell
what I'm doing wrong?

filename1 = ThisWorkbook.Path & "\tempmoditerate.bas"
filename2 = ThisWorkbook.Path & "\tempmodrunsfgcalcs.bas"
filename3 = ThisWorkbook.Path & "\tempmodsfcalcs.bas"
filename4 = ThisWorkbook.Path & "\tempmain.bas"

ThisWorkbook.VBProject.vbcomponents("modIterate"). Export filename1
ThisWorkbook.VBProject.vbcomponents("runsfgcalcs") .Export filename2
ThisWorkbook.VBProject.vbcomponents("sfcalcs").Exp ort filename3
ThisWorkbook.VBProject.vbcomponents("ThisWorkbook" ).Export filename4

Set vbp = ActiveWorkbook.VBProject
On Error Resume Next
With vbp.vbcomponents
.Remove vbp.vbcomponents("moditerate")
.Import filename1
.Remove vbp.vbcomponents("runsfgcalcs")
.Import filename2
.Remove vbp.vbcomponents("sfcalcs")
.Import filename3
Lines = vbp.vbcomponents("thisworkbook").CodeModule.counto flines
vbp.vbcomponents("thisworkbook").CodeModule.delete lines 1, Lines
vbp.vbcomponents("thisworkbook").CodeModule.addfro mfile filename4
vbp.vbcomponents("thisworkbook").CodeModule.delete lines 1, 4
End With

Kill filename1
Kill filename2
Kill filename3
Kill filename4