Adding "WorkbookOpen" Code Programmatically

[tyasm@hotmail.com]

I'm trying to, I suppose for want of a better description, paste a
WorbookOpen sub-routine into 'ThisWorkbook' component of a project in a
new workbook.

Basically I use shell files that refresh data from Access/Oracle
tables, add any necessary formatting, then copy an array of sheets to a
new workbook. I have since created some additional code that allows me
to track who opens these final reports and the frequency.

I have no trouble importing my .bas file, however adding the code to
ThisWorkbook to call the sub-routine on WorkbookOpen is causing issues.

Can anyone assist?

MT

[Bob Phillips]

A simple example

'----------------------------------------------------------------
Sub AddWorkbookEventProc()
'----------------------------------------------------------------
Dim StartLine As Long

With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
StartLine = .CreateEventProc("Open", "Workbook") + 1
.InsertLines StartLine, _
"Dim ans" & vbCrLf & _
" ans = Msgbox( ""All OK"",vbYesNo)" & vbCrLf & _
" If ans = vbNo Then myVar = True"
End With

End Sub



--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

<tyasm@hotmail.com> wrote in message
news:1147667090.085688.313340@u72g2000cwu.googlegroups.com...
> I'm trying to, I suppose for want of a better description, paste a
> WorbookOpen sub-routine into 'ThisWorkbook' component of a project in a
> new workbook.
>
> Basically I use shell files that refresh data from Access/Oracle
> tables, add any necessary formatting, then copy an array of sheets to a
> new workbook. I have since created some additional code that allows me
> to track who opens these final reports and the frequency.
>
> I have no trouble importing my .bas file, however adding the code to
> ThisWorkbook to call the sub-routine on WorkbookOpen is causing issues.
>
> Can anyone assist?
>
> MT
>