Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16330 / 76732 ←次へ | 前へ→

【65870】先行ブックプレビューの有無取得
質問  pon E-MAIL  - 10/7/3(土) 12:29 -

引用なし
パスワード
   こんにちは よろしくお願いいたします

アクセスの クラスモジュール 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でブック操作した時も同様な状況に遭遇したことがあるような気がします

クラスモジュールとは直接の関係は無いような気もしますが、とりあえず
記載させて頂きました

そこで
先行ブックがプレビュー表示されているときは
プレビューを閉じてください メッセージを出したいと思っているのですが
取得方法がわかりません

アドバイスよろしくお願いいたします
0 hits

【65870】先行ブックプレビューの有無取得 pon 10/7/3(土) 12:29 質問
【65936】Re:先行ブックプレビューの有無取得 熊谷隆史 10/7/9(金) 6:47 発言
【65945】Re:先行ブックプレビューの有無取得 mura 10/7/9(金) 14:27 回答
【65947】Re:先行ブックプレビューの有無取得 pon 10/7/9(金) 20:08 発言
【65952】Re:先行ブックプレビューの有無取得 mura 10/7/10(土) 0:19 回答
【65968】Re:先行ブックプレビューの有無取得 熊谷隆史 10/7/11(日) 7:31 発言

16330 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free