|
こんにちは よろしくお願いいたします
アクセスの クラスモジュール Class_Initialize内 で
Set xlsApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then 'Excelが起動されていない
Set xlsApp = CreateObject("Excel.Application")
End If
Set bokWork = xlsApp.Workbooks.Open(tg_bk_fp)
として開いているのですが
通常
先行ブックがプレビュー表示されていると、プレビューを閉じるまでそのまま待機
と思っていますが
他部署で使用している同じ処理のマクロで、ブックを呼出すと
エクセルが暴走(画面がチカチカ入れ替わっている)
↑電話での話なので状況は良く分かりませんが・・・・
とりあえずタスクマネージャーでアクセス、エクセルを終了してもらいました
その後
エクセルをプレビューをさせないで再度試すと不具合は発生しないとのことでした
状況は思い出せないのですが
エクセルVBAでブック操作した時も同様な状況に遭遇したことがあるような気がします
クラスモジュールとは直接の関係は無いような気もしますが、とりあえず
記載させて頂きました
そこで
先行ブックがプレビュー表示されているときは
プレビューを閉じてください メッセージを出したいと思っているのですが
取得方法がわかりません
アドバイスよろしくお願いいたします
|
|