EXCELが起動画面から進まない

Question

下記の順序で新しいBOOKを作成（保存）したところ、

再度ファイルを開こうとしたら、EXCEL起動時の緑色の画面がずっと表示され、プレビュー画面が表示されない。

（ファイル拡張子は、.xls / .xlsm どちらも同じとなります。）

１．新しいBOOKを作成し、Sheet1に適当に文字列を入力

２．Workbook_Openに下記のメソッドだけを組み込み

　　ActiveWindow.SelectedSheets.PrintPreview

３．ファイルを保存

上記後、ファイルを開こうとすると、印刷プレビュー画面が表示されない。

（緑色の画面では”（１００％）”になっている。）

EXCEL自体を起動した状態で、BOOKを開くとプレビュー画面は表示されます。

EXCEL起動完了前に、Workbook_Openで印刷プレビューをするとダメなのでしょうか。

Answer 1

yama-k.office さん、こんにちは。

ご返信、ありがとうございます。

Workbook_Open() イベントで、 CSV ファイルのテキストインポートや帳票イメージの作成などが組み込まれていたのですね。

追加の書き込みありがとうございます。

MsgBox は ActiveWindow.SelectedSheets.PrintPreview の動作を確認した時に MsgBox のコードを入れてみたところうまく動作できたことが解ったので、例としてコメントさせてもらいました。

誤解をさせてしまったのであれば、すみません。。

起動が進まない動作について情報を探してみましたが、原因が書かれたような情報が見つからず、詳しい原因が解りませんでした。。お役に立てなくてごめんなさい。

VBA については専門の VBA フォーラムがあるので、こちらにも投稿し情報を集めてみるとよいと思います。

そうすることで、経験豊富な方からよい回避方法のアドバイスや、参考となるような情報が得られやすくなるかもしれません。

・ Visual Basic for Application (VBA)

※ Excel 起動を確認するメソッドやプロパティーについても質問してみるとよいと思います。

※ 投稿する場合は、作成している VBA コード全文も書いて投稿してみるとよいです。

よろしければ活用してみてくださいね。

Answer 2

大沢様

返信頂きありがとうございます。

ActiveWindow.SelectedSheets.PrintPreview　の前に処理を追加とのことですが、

事の発端は、Workbook_Open()イベントにて、以下の動作を組み込んでいました。

　１．CSVファイルのテキストインポートし、帳票イメージを作成

　２．印刷プレビュー画面を表示させる

しかし、起動画面で停止してしまうことから原因を調査したところ、

ActiveWindow.SelectedSheets.PrintPreview　を実行した際に停止するというのが判明した次第です。

ご指摘のように直前にMsgBoxを入れたら動くというのは確認しておりますが、

MsgBoxは不要でして、その前にインポート処理及びセルの値操作をいくつか実施しています。

その上で事象が判明したため、質問させて頂いた次第です。

エクセル自体が起動完了されていない状態での

ActiveWindow.SelectedSheets.PrintPreview　が原因なのか、

または別の原因があるか、お判りになりましたらお教え頂ければと思います。

あるいは、エクセルの起動が完了しているかどうかをチェックする

メソッドまたはプロパティーなどがあるようでしたら、そちらをご教授願えますでしょうか。

Answer 3

yama-k.office さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

Workbook_Open で印刷プレビュー画面が表示されないということなのですね。

念のための確認なのですが、 Excel ブックをダブルクリックで開くと Excel 起動の画面で停止し、 Excel が起動している状態からであればブックが開けるという認識でよかったでしょうか。

もし違っている点があれば、追加で書いてみてくださいね。

試しに、以下のような簡単コードを作成して動作を試したところ、こちらも同じ症状が発生し、 ダブルクリックでブックを開こうとすると Excel 起動画面で停止しました。

Private Sub Workbook_Open()

　ActiveWindow.SelectedSheets.PrintPreview

End Sub

手元で調べて解ったことなのですが、 ActiveWindow.SelectedSheets.PrintPreview の前に MsgBox"〇〇" など挿入してみたところ、問題なく開くことができました。

この動作について該当するような情報が見つからなかったので、はっきりしたことは解らなかったですが、

ActiveWindow.SelectedSheets.PrintPreview　の前に別のコードを挿入すると回避ができるのかなと思います。

よろしければ参考にしてみてください。