Q&A
タグにExcelもVBAも入っているのでタイトルに入れる必要はないですよ。
オートメーションエラーが発生します。
【Excel VBAについて】
「オートメーションエラーです。」という内容のエラーに悩まされています。
原因が分かりません！
といいますのも、起こる場所、起こるタイミングなどが定まっておらず、
同じ場所でも起こる時と起きない時があり、さらに複数箇所でおきます。
ただ一つ共通しているのは、フォームのメソッド、または、プロパティ（Visible、Hide、Showなどさまざま）を
使用しているところで発生しております。
しかし、エラーメッセージにて「デバッグ」を選択し、一度VBEを開くとそのあとは正常に
動くのです。動くなよって話です。
同じような事例についての質問を他のページなどで
調べてみましたが、改善、原因究明に至りません。
どこで起きるかわからないので、サンプルソースの載せようがないのですが、
《フロー》
ブック1を開く
↓
ブック1のフォーム1が開く
↓
ブック2を開く
↓
ブック2のフォーム1が開く
↓
ブック3を開く
↓
ブック3のフォーム1が開く
↓
ブック3から閉じていく
上記のフロー内のどこかで発生します。もちろん発生しない時もあります。
これが原因かは分かりませんが、
分かりませんが幽霊プロジェクトも発生しております。
ちなみに幽霊プロジェクトとは、エクセルアプリケーションは閉じたのにVBAプロジェクトが残ったままになっている状態のことをそう呼んでいるそうです。
ただこれにつきましては、別の質問でさせていただきます。
ですが、オートメーションエラーの改善が幽霊プロジェクトの改善につながるかもと思い
一応書かせていただきました。
現状はフォーム参照時に発生するエラーだとおもっているので
例外処理でキャッチして、もう一度ShowやHideをするという風に対応しておりますが
中々気持ち悪い流れなのでなくしたいです。
ご回答の程宜しくお願いいします。
追記
コードについてですが例えば
VBA
1 2'-------------------------- 3' フォーム内のボタンAクリックイベント 4'-------------------------- 5Private Sub btnA_Click() 6 7 ' 自フォームを隠す 8 Call Me.Hide ← デバッグするとここで止まっている 9 10 ' Bを表示 11 Call frmB.Show(vbModeless) 12 13End Sub
上記のような非常に単純なコードでも発生します。
コードに問題があるのかないのかというよりも
状況や、やっていることにそもそも問題があるのか、ないのか。
VBAでやるべきことではないのかなどをお聞きしたいと思っています。
・ブック１ではオープン処理でフォームAが開き、
フォームA内でボタンを押すと、フォームBに遷移し、フォームBにはフォームC,D,E,Fへ遷移するボタンがあります。
・ブック２ではオープン処理でフォームGが開きます。
・ブック３ではオープン処理でフォームHが開きます。
各ブックで開かれるフォームはそれぞれのブックのプロジェクトに所属しています。
今回はブック1のフォーム達を遷移しまくった後、閉じていくと上記のコードの場所でエラーが発生しました。
発生している問題・エラーメッセージ
「オートメーションエラーです。」
コードが判らないのでは検討を始めることさえできませんから、とにかくエラーを起こした実際のコードを質問についかしてください。できれば、複数のコードをついかしてください。
ブック自体をダウンロードできるようにしなければ、試しようがない。PC環境によって起こっている可能性もある。実物を用意しないのなら、誰も手助けなどできない。
回答1件
0
確かな事は言えないのですが、私も同様のエラーに遭遇したことがあり、
その時の対処方法をシェアしますので参考にしてみてください。
(事象が改善できなかったらごめんなさい)
・ご質問の事象発生原因(想定)
複数ののブックを開いている状態で、フォアグラウンドにないブックに対して操作する場合に、
Excelアプリケーションがバックグラウンドにないブックをうまく処理できず、エラーが発生している。
・改善方法
操作したいブックの処理を実施する前に Activate プロシージャを呼出し、
操作したいブックをフォアグラウンドに移動する。
※また、この手の問題は、メモリが関係しているようで、
複数のブック・シートなどの操作時に当問題が発生する場合は、
Activateを試して見ると直ることが多いようです。
※MSにこの問題について述べているページを以前見つけたのですが、
ちょっとすぐに見つからなかったのでもし見つけたら添付します。すみません。
投稿2018/05/18 02:19
総合スコア316
回答へのコメント
ご丁寧なご回答ありがとうございます。
また、気付くのが遅くなってしまい申し訳ございません。
一度Activateを入れて様子を見てみます。
結果は追ってご報告させていただきます。
MSのページの件ですが、もし見つかりましたらご連携宜しくお願い致します。
