如何判斷檔案是否已經開啟

enoch

請問如何去判斷指定檔案是否已開啟

register313

回復 1# enoch

善加運用論壇 右上方  "搜索"  功能

http://forum.twbts.com/viewthrea ... E%D7%2B%B6%7D%B1%D2[/url]

enoch

若果想用IF 條件可以做到嗎?
當檔案book1未開啟,  Windows("book1.xls").Activate 出現錯誤 作為判斷條件
應該點寫呢, 請指教

register313

回復 3# enoch

1. Sub ZZ()
   
2. For Each WB In Workbooks
   
3. If WB.Name = "Book1" Then
   
4.   MsgBox "已開啟"        '已開啟要作什麼
   
5.   temp = 1
   
6.   Exit For
   
7. End If
   
8. Next
   
9. If temp <> 1 Then
   
10.    MsgBox "未開啟"       '未開啟要作什麼
    
11. End If
    
12. End Sub

複製代碼

alexliou

回復 1# enoch

Set wBook = Workbooks("book1.xls")
If wBook Is Nothing Then
      BookNotOpen = True
Else
     BookNotOpen = False
End If

GBKEE

另一解

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim w As Workbook
   
4.     For Each w In Workbooks
   
5.         If w.Name = "Book2.xls" Then MsgBox "Book2.xls 已開啟 "
   
6.         '或是下式程式碼
   
7.         'If w.FullName = "d:\test\Book2.xls" Then MsgBox ""d:\test\Book2.xls 已開啟 "
   
8.     Next
   
9. End Sub

複製代碼