Application Event Procedure <Falling Over
Hi Tim,
I understood from the onset that you are trapping application level events,
so you would have a class module named [say] ClassName, in the class module
something like this
Public withevents App as Excel.application
also, at module level in a normal module you would maintain a reference to
your class named [say] ClassName
Dim AppClass as ClassName
In my sample code. not knowing what you named your class I wrote at random
'ClassName'. You will need to change this to whatever you named your class,
perhaps it's still named 'Class1'.
Regards,
Peter T
"Tim Childs" wrote in message
...
Hi
I could not get the code below to compile:
Sub Reset_EnableEvents_NEW()
If AppClass Is Nothing Then
Set AppClass = New ClassName
Set AppClass.App = Application
End If
End Sub
"New ClassName" above produced the compile error:
"User-defined type not defined"
I had Option Explicit turned on in the module
Any help welcome. THANKS
Tim
"Tim Childs" wrote in message
...
Hi Peter
Many thanks for response
I will try to assimilate in the programming. The underlying problem is
that
sometimes the program simply does not start up properly when the file
containing it is opened. The problem is intermittent so I was very
interested in being able to test as directly as possible, rather than by
proxy e.g. the proxy would be testing the value of a new boolean flag
variable, although I will incorporate that as well.
Best wishes
Tim
"Peter T" <peter_t@discussions wrote in message
...
If AppClass is Nothing then ...
If your previously created class, that holds the ref to Excel
(AppClass.App
= Application) and handles application 'withevents', has unexpectedly
become
nothing, ie it's been destroyed, you can go on to recreate or 'reset'
it.
You could of course use RBS's suggestion to check 'If Not bWBOpened
then...'
anywhere in your code and go on to reset your objects, and perhaps any
other
global variables.
If you are going to check your settings periodically with the OnTime
method
you will need to call some routine, which might just as well be your
existing Sub Reset_EnableEvents(). But in the routine only reset if
necessary.
Regards,
Peter T
"Tim Childs" wrote in message
...
Hi Peter
Thanks for response. Can someone explain what the suggested change
to
the
procedure
Sub Reset_EnableEvents()
If AppClass is nothing then
set AppClass = new ClassName
Set AppClass.App = Application
end if
End Sub
is doing because I dont yet understand.
Thanks
Tim
|