VBでファイルが開かれているかどうかを確認したい

お疲れ様です。

Open ステートメントで開いたファイルが、閉じていなければ閉じると言う処理をしたいのですが、ファイルが開きっぱなしかどうかを確認するには、どんな方法があるのでしょうか？

よろしくお願いします。

No.1 ベストアンサー 回答者： ats8181oyaji 回答日時： 2002/09/17 17:35

こんにちは

もう一度同じファイルを同じファイルNo.(#1)で
開きに行くと、
開きっぱなしなら“すでに開いています”とエラーになって
閉じていたら、エラーがないので
判断出きるはずです。

No.5 回答者： i-touch 回答日時： 2002/09/18 09:40

こんにちは

厳密には#1の方の方法が確実ですし、閉じるのが目的なら#2の方の「Close」だけがいいかと思います。
私の場合は、グローバルな変数を用意して、Openした時にフラグを立てる方法を使うことがあります。
Dim boFile2Open As Boolean
Open ...
boFile2Open = Trueとか。
そのファイル番号をクローズしたときに、フラグを変更します。エラー時の処理も必要になりますけど。
あるいは FreeFile(0)で取得したファイル番号をチェックする方法を使ったこともあったような。
では！

この回答への補足

エラー処理ルーチンで使用したいと思いますので、単純に、Closeするだけにします。

皆さん、ご回答、どうもありがとうございました。

補足日時：2002/09/19 09:02

No.4 回答者： imogasi 回答日時： 2002/09/17 18:43

開いているブック名は下記で判ります。

ご参考までに。
Sub Test01()
Dim wb As Workbook, wbname As String
For Each wb In Workbooks
wbname = wbname & wb.Name & vbCrLf
Next wb
MsgBox "現在開いているブックは、" & vbCrLf & wbname & vbCrLf & "です。"
End Sub

No.3 回答者： MovingWalk 回答日時： 2002/09/17 18:38

きちんとやろうと思うと、＃１の方のようにするべき？かなと思いますが、

VBでは、Close　でエラーは発生しませんので、＃２の方の方法でいいと思います。
プログラムとして、それに頼るのがいいかどうかは別ですが。

この回答への補足

>プログラムとして、それに頼るのがいいかどうかは別ですが。

そうなんです。
そこで悩んでしまうんです...

補足日時：2002/09/17 19:43

No.2 回答者： todo36 回答日時： 2002/09/17 17:56

Closeの引数を省略すると閉じていないファイルをすべて閉じます

この回答への補足

この場合、ファイルが開かれていなくても、エラーは発生しないのでしょうか？

補足日時：2002/09/17 18:09