Kiểm tra một File Excel có đang được mở hay không?

[timban4phg]

Tôi đang gặp vấn đề trong việc kiểm tra một File Excel nào đó xem nó đang được Open hay không. Bạn nào biết cho minh Code của hàm này với nhé. Cám ơn

 

[anhtuan1066]

Món này dễ mà.... Trên diển đàn hình như cũng đã có nói rồi... Bạn dùng thử code này nhé:

Sub Test()
  Dim wb As Workbook
  Dim TEN As String
  On Error Resume Next
  TEN = Application.InputBox(Prompt:="Nhap ten file can kiem tra vao", Type:=2)
  Set wb = Application.Workbooks(TEN & ".xls")
  On Error GoTo 0
  If wb Is Nothing Then
     MsgBox "File " & TEN & " dang dong"
  Else
     MsgBox "File " & TEN & " dang mo"
  End If
End Sub

Còn như muốn biết có file nào khác ngoài file cũa mình đang mở hay ko thì càng dễ, dùng Workbooks.Count
Mến
ANH TUẤN

 

[tedaynui]

To timban4phg
Mình gởi bạn 2 Function sau để tham khảo nhé (giá trị trả về là TRUE hoặc FALSE)
1/

Function WBIsOpen(WkBookName As String) As Boolean
    WBIsOpen = False
    For Each wkbk In Application.Workbooks
        opened = UCase(wkbk.Name) = UCase(WkBookName)
        If opened Then
            WBIsOpen = True
        End If
    Next wkbk
End Function

2/

Function WorkbookIsOpen(rsWbkName As String) As Boolean   
On Error Resume Next  
WorkbookIsOpen = CBool(Len(Workbooks(rsWbkName).Name) > 0)
  End Function

TDN