PCがシャットダウン/再起動する時にエクセルファイルを自動保存できるか

Question

みなさんこんにちは
現在エクセルのVBAを使用してツールを作成しています。
このツールですが、自動実行します。

問題なのですが、windowsupdateで再起動する時にエクセルファイルが保存されないので、自動実行中にセル入力した内容が消えてしまいます。

解決案の１つとしてはwindowsupdateの自動をoffにすればいいと思います。

それ以外の解決としては再起動時にエクセルファイルを保存する方法がないか調査をしています。

シャットダウンや再起動したら、
イベント「Workbook_BeforeClose」が呼び出すのかと考え、このイベント内で保存処理を実装しましたが、呼ばれないようで保存ができませんでした。

シャットダウン・再起動時にエクセルファイルを自動保存する方法があれば教えてください。
よろしくお願いいたします。

Answer 1

標準モジュールに下記のコードを記述しておくと、シャットダウンなどで終了される場合でも、保存できます。

Sub Auto_Close()
    If ThisWorkbook.Saved = False Then
        ThisWorkbook.Save
    End If
End Sub

Comments

[kuronokurujp]

hatena19さん
ありがとうございます。
回答通りに対応したらシャットダウンでの強制終了した場合でも保存できました。

補足ですが、シャットダウンした後に表示する画面で「強制的にシャットダウン」のボタンを押すと保存はする事なくシャットダウンしました。
ボタンを押す事なく、一定時間待っていると保存が実行されシャットダウンしました。

[hatena19]

「強制的にシャットダウン」まで対応するのみ難しいかと。
あと、OSフリーズとか、タスクマネージャーでの強制終了でも対応は難しいでしょう。
そこまで、厳密性をもとめるなら、
VBAで自動更新しているなら、更新するたびに保存するということで対応することになるでしょう。

[kuronokurujp]

ご返答ありがとうございます。
強制終了での対応は現在必要ないので大丈夫です。

[otn]

「強制的にシャットダウン」は、稼働中のプロセスに対して、プログラムで行う終了時処理を行わずに、OS管理上からプロセスを消すという意味なので、Excelに限らず終了時処理が行われません。
作業中のメモリが無条件に捨てられるのはもちろん、不要な作業ファイルが残ったり、共有メモリにゴミが残ったり（どうせOSが落ちるので関係ないですが）します。

Answer 2

「自動実行中にセル入力した内容が消えてしまいます。」とありますが、
定周期で分単位であれば、データを書き込みしたときにブックを保存してしまえば良いし、
コードが書けるのであれば、シート上のセルに書き込みしないで、テキストファイルに追記していけばよいでしょうし。
’
そもそも論ですが、EXCELは、無人自動運用は非推奨です。
’
古くはVB4/5/6でも、今でもWindowsフォームプロジェクトで、
C#/VB.NETでも Shutdown イベントで Window.Close イベントが発生します。
Window Close の要因も取得できます。
どうしてもEXCELに拘るのであれば、VSTOで、Shutdown イベントを拾う方法で、間に合うかどうか。かも。
’
EXCELは、セル入力中、ダイアログ応答待ち中、その他にもEXCELオートメーションが
動作しない事があります。
⇒セル自動記入のVBAが走って、セルへの書き込みを行っているのであれば、
ブック保存のダイアログが出ていて、Closeイベントが走っていない可能性があります。

Answer 3

WIN32 API のイベントループでも書かない限り難しいと思います。代替え案ですが

Application.OnTime Now + TimeValue("00:00:15"), "MySaveFile"

タイマーを発行して定期的に保存するのはどうでしょうか。ファイルの保存処理を書いた MySaveFile の最後で再度このタイマー登録を行えば15秒毎にファイルが保存されます。