CreateObject実行時、OLEエラーが発生します。

[Routh]

マクロであるミドルウェアのAPIを使用した処理を行うため、CreateObject
関数を使ってオブジェクトを生成しようとしていますが、オブジェクトの生成
に時間がかかる場合、「別のプログラムでOLEの操作が完了するまで待機
を続けます。」というダイアログが表示されます。ダイアログの[OK]ボタンを
押さないと処理が続行しないため、このダイアログがでないようにしたいです。
情報をお持ちの方がおられましたら、ご教授いただきたく思います。

Sub Macro()
Dim objA as object

objA = CreateObjcet("XXXXX.Application")
objAのメソッドを使用した処理
set objA = Nothing
End Sub

尚、Excelのバージョンは2000です。

[nobiw]

一案ですが、CoRegisterMessageFilter API でメッセージを表示しない
ようにできます。サンプルコードは検索してみてください。

[Miyahn]

# $BEj9FA0$K%K%e!<%9%0%k!<%W$N%k!<%k$H%^%J!<$r3NG'$7$^$7$g$&!#(B
# $BEj9F!?1\Mw$K$O(B Web $B%Y!<%9$G$J$$%K%e!<%9%j!<%@$NMxMQ$r?d>)$7$^$9!#(B

"Routh" $B$5$s$O!"(B2006$BG/(B8$B7n(B26$BF|(B 1:24 $B$N(B

$B%^%/%m$G$"$k%_%I%k%&%'%"$N(BAPI$B$r;HMQ$7$?=hM}$r9T$&$?$a!"(BCreateObject
$B$K;~4V$,$+$+$k>l9g!"!VJL$N%W%m%0%i%`$G(BOLE$B$NA`:n$,40N;$9$k$^$GBT5!(B

$B$=$N$"$k%_%I%k%&%'%"$N5/F0$,Aa$/$J$k$h$&$K$9$k$+!"$"$i$+$8$aHsI=<($G(B
$B5/F0$7$F$*$$$F(B GetObject $B$G$-$k$^$G%k!<%W$9$k$H$+!#(B

$B8e<T$K4X$7$F$O!"$3$A$i$N%5%]!<%H5;=Q>pJs$r$I$&$>!#(B

[OFF2003] [PRB] GetObject $B$d(B GetActiveObject $B$r;HMQ$7$F<B9TCf$N(B Office
$B%"%W%j%1!<%7%g%s$r8!=P$G$-$J$$(B
$BJ8=qHV9f(B: 238610

IntelliCAD 98 $B$^$?$O(B AutoCAD LT(Lite) $B$N>l9g$O$=$b$=$b(B CreateObject
$B$G$-$J$$2DG=@-$,$"$j$^$9$,!#(B