| 投稿日 | ： 2006/07/25(Tue) 21:02 |
| 投稿者 | ： satsuwan |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： １秒ごとに取得したデータをなるべく安全に保存したい |
はじめまして。VB6.0に関する質問です。
基本的なプログラムの概要は、
『RS232Cを介して装置とPCで送受信し、受信データを１秒ごとにエクセルに書き込ませる。』
といったものです。
このデータの保存方法に関する質問です。
今は、
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)
xlApp.Visible = False
xlSheet.Cells(1, 1) = Date
・
・
上記のようにエクセルを開き、情報を書込みます。
それから、タイマーコントロールを使って１秒ごとにセルに一行ずつデータを書き足します。
そして、『記録終了ボタン』を押すと、
S = Format(Now, "yy年mm月dd日_hh時nn分ss秒")
SaveName = "C:\" & S & ".xls"
xlSheet.SaveAs SaveName
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
で、エクセルを保存して閉じています。ですが、
これだと記録終了ボタンを押すまで、開いたままのbook1にデータが保存されていくので、
万が一パソコンの電源が落ちてしまった場合にデータが残らないですよね。
かといって、一秒ごとにエクセルを開いたり閉じたりすると、
処理が間に合わなくなってしまいます。
データをなるべく多く残すために、なにか良い方法はありませんか。