Excel is Waiting for another Application to complete OLE Action......

[AAOmari]

Hi all,

I have a VBA application that starts
execution in Excel 2000 and opens anohter program Called "Refelction",using
CreateObject command.
Reflection is an emaulation software that downloads data from a UNIX computer
box.

What seems to be happening is that after
a while Excel is timing out waiting for
Reflection to download data. Excel gives me this message:

"Microsoft Excel is waiting for another application
to complete an OLE action."

I am wondering if there is a way to suppress or
trap this message? I've tried on
Application.DisplayAlerts = False.
It did not work.

Question is this message above considered an Alert?
How can I supress the message?
Maybe there is a setting that I
can change to set the timeout value to be longer?
Everything is executing exactly the way I want it
to. I just want Excel to be more patient and wait
till Reflection is finished.

Any help would be greatly appreciated!
Thanks!

[ee]

I've seen this before but usually it was because I tried to activate excel,
got bored and started clicking cells and stuff. I don't think this is an
excel specific message, I actually think its a windows message. I've also
seen it with some vb apps communication with dcom components. I know for a
fact that this message wasn't coded into to components.

Sorry I'm not much help, but I sympathize with your woe. It was pretty
annoying.

"AAOmari" <aao...@aol.com> wrote in message
news:20020521220519...@mb-ce.aol.com...

[Rob Bovey]

You can solve this by using the COM API to remove VBA's message filter.
This will prevent COM from telling VBA to displaying a message box when it
thinks the process you're calling has blocked. Note that if the process
really has blocked for some reason this will prevent you from receiving any
notification of that.

Private Declare Function _
CoRegisterMessageFilter Lib "OLE32.DLL" _
(ByVal lFilterIn As Long, _
ByRef lPreviousFilter) As Long

Sub KillMessageFilter()

Dim lMsgFilter As Long

''' Remove the message filter before calling Reflections.
CoRegisterMessageFilter 0&, lMsgFilter

''' Call Reflections here....

''' Restore the message filter after calling Reflections.
CoRegisterMessageFilter lMsgFilter, lMsgFilter

End Sub

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *

"AAOmari" <aao...@aol.com> wrote in message
news:20020521220519...@mb-ce.aol.com...

[nznz...@gmail.com]

Thank you.

[juraj.r...@gmail.com]

Hi, i would like to ask you - it´s possible to make this macro without Private Declare function? I need to run this macro automatically without choosing of right modul :(

Thank you.