2018年10月
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31      
無料ブログはココログ

« そのExcelファイルが開かれているか?をスクリプトから調べる。 | トップページ | DEL *.XLS は危険です! »

2008年4月 7日 (月)

そのExcelファイルが開かれているか?をVBAから調べる。

Application.Workbooksで分かるのは、そのExcel.Applicationで開かれているExcelファイルだけです。
そこで、

Dim Path As String
Dim Count As Long
Dim Book As Variant

Path="Excelファイルのフルパス"
Count = Application.Workbooks.Count
Set Book = GetObject(Path)
If Count <> Application.Workbooks.Count Then
  Book.Close
  Set Book = Nothing
  MsgBox "Not Open"
ElseIf Book.Application Is Application Then
  MsgBox "Open here"
Else
  MsgBox "Open elsewhere"
End If

« そのExcelファイルが開かれているか?をスクリプトから調べる。 | トップページ | DEL *.XLS は危険です! »