エクセルのＶＢＡでファイルの状態を調べるコマンド

質問

エクセルのＶＢＡでファイルのコピーをしたいのですが、コピー元がＯＰＥＮ状態だとコピーできません。
FileCopy "C:\Ａ.XLS", "C:\Ｂ.XLS"
そこで、上記のコマンドを実行する前に、コピー元がＯＰＥＮ状態かどうかを判断させて、ＯＰＥＮ状態だと実行を5秒待つようなマクロを記述したいのですが、可能でしょうか？

回答No.5

papayuka · ベストアンサー

#3です。

> 演算時にバックアップソフトとのバッティングが考えられます。

FileCopyステートメントは開いていると失敗しますが、エクスプローラ等では普通にコピー出来ます。
まぁ、バックアップソフトでコピー＆リネーム出来るかは不明ですけど、、、

取り合えず #1さんの方法で書いてみました。
コピーを試みて失敗したら5秒待ち、1分程経っても成功しない場合は終了します。
良い方法かどうかは解りません。

Sub Test()
Dim StartTime As Single, Cnt As Integer

Cnt = 1
On Error GoTo ER:
　　FileCopy "C:\A.XLS", "C:\B.XLS"
　　MsgBox "コピーが完了しました", vbInformation, "成功"
Exit Sub
ER:
　If Cnt <= 12 Then
　　　StartTime = Timer
　　　　　Do While Timer < StartTime + 5
　　　　　　 DoEvents
　　　　　Loop
　　　Cnt = Cnt + 1
　　　Resume
　Else
　　　MsgBox "コピー出来ません。", vbCritical, "失敗"
　End If
End Sub

お礼

コードまで考えていただき、ありがとうございました。
おかげさまで目的を達成することができました。
DoEventsは知らなかったのですが、この命令により別の懸案事項もクリアできました。
どうもありがとうございました。

回答No.4

popesyu

アルゴリズム的にはファイルAの更新時(保存ボタンを作ってそちらで上書き保存とバックアップ処理を行う　or　Closeイベントでバックアップさせる)にバックアップを取るだけで問題ないような気がするのですが・・・？

ファイルAのオープンチェックについては、それが両方ともPC1上で行われるのであれば、プロセスや同名のブックが開かれているかを確認するだけで可能ですが、別PC上で行われるのであればやはりエラーが発生するのかどうかで判別するしかないでしょう。
それにそもそもその手のエラーは開かれている時だけ発生するという訳でもありません。更新される側のファイルBが使用中とか、別PCへのコピーならアクセス権限やLANの問題などでもエラーは出ますよ。

お礼

Closeイベントでバックアップするなど、いろいろと勉強になりました。
ありがとうございました。

回答No.3

papayuka

#2の補足を読む限り、バックアップソフトを常駐させておいた方が遥かに楽な気がしますが、、、

フリーでもシェアでも多数公開されてますので。
http://www.vector.co.jp/vpack/filearea/winnt/util/backup/
http://www.vector.co.jp/vpack/filearea/win95/util/backup/

補足

バックアップが最終目的ではなく、コピーされたファイルＢをもとに演算を行いたいと考えているので、バックアップソフトでコピーを行うと、今度は演算時にバックアップソフトとのバッティングが考えられます。
(1)ファイルＡのオープンチェック
(2)オープンチェックがｏｋなら(3)の処理、ＮＧなら５秒待機後(1)へ
(3)ファイルＡをファイルＢにコピー
(4)ファイルを元に演算を行い、ファイルＣを作成
上記の(1)から(4)までの処理をＶＢＡの中で完結させたいので、(1)のファイルＡのオープンチェックがしたいのですが、無理なのでしょうか？

回答No.2

popesyu

5秒待つってのはあまり実用性がないアルゴリズムですよ。実際にお使いのソフトでそんなエラー待ち処理をしているソフトってないでしょ？
エラーが出たらダイアログが出て中断するとか、エラー内容を出して続行ボタンをおしたら再試行を実行させるとかにするのが普通です。あるいは有無を言わさずアプリが落ちるとかｗ
現実的にエラーが発生する状況を想定すれば、5秒なり10秒なり待ったところで、ユーザー側がそのエラー状況を解除しない限りはエラーは続くのですから、時間制限でループさせることの意味がまるでありません。

で、その手のエラーの判別については、実際に開いているエクセルファイルがあるかどうかという判別で処理は可能ですが、そんな手間をかけるよりもエラー制御で処理するのがまた一般的な対応法です。

例えば以下のコードを試してみてください。
On Error Resume Next
Err.Clear
FileCopy "C:\A.XLS", "C:\B.XLS"
MsgBox (Err.Number)
MsgBox (Err.Description)

何かのエラーが起きたときにどのようなエラーが起きたかをキャッチすることができます。エラーナンバーによって、どのようなエラーが起きているか、あるいは起きていないかが判別できるので、それにあわせて処理を分岐するようにします。

補足

説明不足ですみません。
パソコンが２台（ＰＣ１、ＰＣ２）あって、ＰＣ１がＰＣ２に保存されている共有ファイルＡを不定期に更新し、そのファイルをＰＣ２が５分ごとにファイルＢにコピーしたいと考えています。

たまたまＰＣ１がファイルＡを更新中に、ＰＣ２がファイルのコピーを行うとバッティングしてしまいエラーになるので、ファイルをコピーする前にファイルＡのオープンチェックを行いたいと思っています。

回答No.1

deecyan

onerr を書いて　エラーになったら　5秒待って
resume　したらいいのでは？
でも　エラーになった回数を記録して　何回かしたら
EXITしたほうがいいかな？
または　MSGBOXを出して　待つ手もありますよ