大至急！ 一連のマクロが止まってしまいました。対処法をおしえてください。

質問

シーケンサから送られてくるデータがあり、
それを24時間モニターするシステムをexcel2007で構築しています。

詳細
・excelとシーケンサは1秒ごとに通信している
・1ブックに7シート（うち5シートがグラフ）
・一日三つのブックを保存します。
・ひとつのファイルが約400KB程あり、
　一日で諸々含め約1.5Mほどになります。
・excel自体には、タイマーで自動起動するマクロが
　（印刷、保存1、保存2、保存フォルダ作成、画面クリア、
　　次回タイマー予約）とあります。
・PCスペックは
　core2duo 500GB メモリ2GB

上記システムが、約三カ月稼働後の印刷を最後に、タイマーマクロが働かなくなり、再起動後、20日で再び同じ症状になりました。

二度とも、保存１の段階（もしくは印刷終了後）でストップしています。
一度目には、保存フォルダに0kbのファイルを確認しました。
（つまりは、保存に失敗しているってことでしょうか？）

ちなみに、ストップしたのは、マクロのプログラムで、
EXCEL自体の表示はモニターをし続けていました。
ただ、そこから終了をかけても落ちない状態でした。

保存作業で引っかかり、それが尾を引いて他の作業が出来なくなった、と考えるべきでしょうか？

実際、その現場に自分も居合わせてはおらず、その時の状況（CPU稼働率、メモリの状況など）が不明確で、大変申し訳ありませんが、

それらの対処法があれば教えてください。

一応、保存コードも記載しておきます。

Option Explicit

Sub DB保存()

On Error Resume Next

Dim bn As String
Dim 値 As String
Dim 本日 As String
Dim 新ブック As String
Dim 年 As String
Dim 月 As String
Dim 日 As String
Dim 時間 As String

bn = "予冷庫　温湿度管理表.xlsm"
年 = Year(Now)
月 = Month(Now)
日 = Day(Now)
時間 = 235400 '変更注意

本日 = Format(expression:=Date, Format:="yyyymmdd")
値 = (本日) & (時間)

新ブック = "C:\xxx\管理者用\DB\DB" & (値) & ".xlsm" 'パス変更注意

Workbooks(bn).SaveCopyAs Filename:=新ブック

End Sub

回答No.4

temtecomai2 · ベストアンサー

On Error Resume Next をやめてエラーを確かめてみましたか？
対策は何のエラーが出てるのか確認してからでしょ？

回答No.5

Wendy02

こんにちは。

ご質問の場合は、たぶん、エラーはエラーでも、フリーズだと思います。再起動という方法は一案ですが、その前に、一度、Excelの再起動という手もあると思います。それでダメなら、システムの再起動の自動化をするという方法が良いと思います。

WScript で、

''MyExcel.VBS ,WSH で動かす
Dim xlApp
Dim myPath
Dim DefPath
'On Error Resume Next
Set xlApp = Wscript.CreateObject("Excel.Application")
'If xlApp Is Nothing Then
'Set xlApp =Wscript.Getobject(, "Excel.Application")
'End If
If Not xlApp Is Nothing Then
With xlApp
myPath = .StartupPath
'必要に応じて、ここにパスを入れます。
DefPath = .DefaultFilePath
.Visible =TRUE
'アドインやPersonal.xls が必要なときは、ここに書き加える
'.Workbooks.Open(myPath & \Personal.xls")
.Workbooks.Open(DefPath & "\Test01.xls")
End With
Set xlApp = Nothing
End If

こんな風にして、Excelの起動を確保し、Windows 側のタスクにで決めてやるわけです。そして、Excel側は、Application.OnTime で、一定の時間で終了させるようにする。こちらでは、アプリケーションのフリーズするのは仮想メモリ側が膨らんでしまう可能性があると考えています。Windows そのものは、ずっと付けっぱなしでも、私はトラぶった経験がありませんが、Excelがハングした場合は、必ず、XP の場合は、C:\Documents and Settings\[User ID]\Local Settings\Temp\*.*　（または、*.emf )を削除するようにします。そうしないと、それは繰り返す可能性を秘めています。Excelを終了したときか、起動したときに、ゴミになるようなテンポラリファイルは合わせて削除すると良いと思います。他のOSでは、該当する場所を掃除してください。

回答No.3

NOBNNN

そもそもEXCELのマクロ（ＶＢＡ）で作成したプログラムを長時間（何日も）というのはいかがなものでしょうか？
ＷＩＮＤＯＷＳ　ＰＣ側で動かしている。　
何らかの要因でＰＣがフリーズしたら結局は動かなくなるのは当たり前です。
昔、私も同様な経験があります。　マイクロソフト Access2000　でしたがタイマーを使って自動的にプログラムを動かしていましたがある日の翌朝にフリーズしていました。
原因はメモリーリーク（http://ja.wikipedia.org/wiki/%E3%83%A1%E3%83%A2%E3%83%AA%E3%83%AA%E3%83%BC%E3%82%AF)
でした。
もっとも昔のＰＣの環境と現在のＰＣスペックでは比較になりませんが。
他のプログラムの影響もありえます。たとえばウイルスワクチンソフトなど。
私だったらＣ＃やＶＢ．ＮＥＴなどで　バックグラウンドとして
ＤＢに記録するプログラムを作成するべきとは思いますけど・・・

システム規模や接続機器の構成がわかりませんので状況がわからないのでなんともいえないのすが。
それとタスクマネージャーよりＰＣモニターでＣＰＵ稼働率、メモリーの使用率などの状況がみれます。　このデータをログとして記録してみてください　Windows Vista の場合は Relog.exe コマンド が用意されています。　このあたりを調査する必要があります。
タスクマネージャー　は　Ctrl+ALt+DEL キーを同時に押すと起動するメニューが表示されます。　タスクマネージャーの「パフォーマンス」
のTAB　をクリックしてみてください。

回答No.2

chibita_papa

どこかのタイミング
例えば夜中の2時とか・・

shell "c:\windows\system32\shutdown.exe /f /r /t 000"
または、タスクスケジューラに
c:\windows\system32\shutdown.exe /f /r /t 000
をセットし再起動をかけてみたらどうでしょうか。

スタートアップに、該当のマクロを含むＥＸＣＥＬをセットし
自動起動すれば、解決すると思います。

回答No.1

soaikats

それがサーバでなくパソコンであればそれが原因では？

パソコンは電源を落とさない運用を行うと
想定しない誤作動を起こす原因となります。

補足

ありがとうございます。
サーバーでなくパソコンです。

やはり、メンテ再起動が必要でしょうか。

３ヶ月、２０日とブレがあったので、
それ以外にも要因があるのかと。
そんなもの何でしょうか？