環境はVB2008です。開いているエクセルファイルの認識！

質問

環境はVB2008です。開いているエクセルファイルの認識！
すいません。詳しいかた宜しくお願い致します。

【現象】
ファイルが既に開いている場合、読み取り専用で開いてしまうと保存できないため、
開いているファイルの検索をかけようと試みたが、
新しいエクセルを起動した中のWorkBook内を検索してしまうのか
開いているワークブックを検知してくれない。

Dim xlApp As New Excel.Application
Dim xlwb As Excel.Workbook
Dim xlws As Excel.Worksheet

Dim URL3 As String
URL3 = "C:\MailDB.xls"

Dim allwb As Excel.workbook
For Each allwb In xlApp.Workbooks
If allwb.Path = URL3 Then
MsgBox(URL3 & "のファイルを閉じてください。", MsgBoxStyle.Exclamation, "警告")
Exit Sub
End If
Next

xlwb = xlApp.workbooks.open(URL3)
xlws = xlwb.worksheets(1)

With xlws
.Cells(1, 3) = "テスト"
End With

xlwb.Save()
xlwb.close()
xlApp.quit()

回答No.1

tsukasa-12r · ベストアンサー

Excel.Workbooks を検索するのではなく、書き込みモードでオープンしてみてダメだったらダメ、オープンできたら OK という判定をしてはどうでしょうか。
例えば、↓こんな感じの関数とか。

Private Function CanOpen(ByVal strFileName As String) As Boolean
Dim fs As FileStream
Try
fs = File.OpenWrite(strFileName)
fs.Close()
Return True
Catch ex As System.IO.IOException
Return False
End Try
End Function

お礼

迅速な回答をありがとうございます。

初心者に毛が生えた程度なので、FileStream　の意味は
いまいち理解出来ていませんが、
開いているファイルに対しては、書き込み専用とすると、
エラーを返すことが分かりました。

助かりました。