Kiểm tra xem Workbook mở hay không ... (2 người xem)

[Davidsy]

Các bác chỉ giúp em làm cách nào, từ Activeworkbook kiểm tra xem một Workbook khác nào đó (biết tên của nó rùi) đang mở hay không ?

Sub IsOpen(Workbookname) as boolean
'nếu đang mở thì trả về True
'không thì trả về False

'Viết code như thế nào đây

end sub

Cảm ơn các pro.

 

[nvson]

Bạn thử sử dụng đoạn code sau:

Option Explicit
'
'Cach 1
Public Sub Ktra1()
Dim wbkOpen As String
Dim i As Byte
wbkOpen = "Taomatran_ngaunhien.xls"
For i = 1 To Workbooks.Count
    If Workbooks(i).Name = wbkOpen Then
        MsgBox "File " & wbkOpen & " da duoc mo"
        Exit Sub
    End If
Next i
MsgBox "File " & wbkOpen & " khong mo"
End Sub
'
'Cach 2
Public Sub Ktra2()
On Error GoTo coloi
Dim wbkOpen As String
wbkOpen = "Taomatran_ngaunhien2.xls"
Workbooks(wbkOpen).Activate
MsgBox "File " & wbkOpen & " da duoc mo"
coloi:
MsgBox "File " & wbkOpen & " khong duoc mo"
End Sub