EXCELにデータを出力する際、同一名のブックを開いていないかチェックしたい。

質問

ＶＢをはじめて１年です。
今回ＶＢフォーム上に配置した「Excel出力」ボタンを
押下することであらかじめ用意しておいたＡ.xlsという
ＥＸＣＥＬフォーマットを使用して、データを展開し、
2005年Ａ.xlsという名前で保存するという処理を行って
います。

この処理をはじめる前に、2005年Ａ.xlsを現在表示中
かどうかチェックしたいのですが、どのようにしたら
いいのかわかりません。
2005年Ａ.xlsが表示中の場合、エラーメッセージを表示
させたいと考えています。

本日中に修正が必要となっております。
すいませんが、どなたかご教授頂ければありがたいです。
よろしくお願いいたします。

回答No.2

O_cyan · ベストアンサー

Private Sub Cmd1_Click()
　　On Error Resume Next
　　Dim myFilename As String
　　Dim myfile　　 As String
　　myFilename = "C:\フルパス\2005年Ａ.xls"　　'ファイルをフルパスで指定してください。
　　myfile = Dir$(myFilename)
　　If Len(myfile) = 0 Then
　　　　MsgBox "ファイルが存在しません。"
　　Else
　　　　Name myFilename As myFilename　　　'ファイルが使用中であればエラーが発生します
　　　　If Err.Number Then
　　　　　　MsgBox "ファイル使用中です。"
　　　　　　Err.Clear
　　　　Else
　　　　　　MsgBox "ファイル使用されていません。"
　　　　End If
　　End If
End Sub
簡単ですがこんな感じでどうでしょうか

お礼

O_cyanさん、ありがとうございます。
上記サンプルソースにて正常に希望どおりの
動作を行えるようになりました。
本当に助かりました。

回答No.3

kikaida-

Dim x As Excel.Workbooks
Dim i As Long

Set x = Excel.Workbooks

For i = 1 To x.Count
　　if x(i).FullName = "c:\...\2005年Ａ.xls" then
　　　　'ファイルを開いているときの処理
　　　　exit for
　　end if
Next i
set x=nothing

お礼

kikaida-さん、ありがとうございました。
VBについては、素人ですので、また機会がありましたら
いろいろ教えてください。

回答No.1

JeanneNet

こんにちは、じゃんぬねっと と申します。

以下のリンクが参考になるかと思います。
http://dobon.net/cgi-bin/vbbbs/cbbs.cgi?mode=al2&namber=10307&no=0

お礼

じゃんぬめっとさん、ありがとうございました。
また、質問することがあると思いますのでよろしく
お願いいたします。