Detecting file Open status

tmccollum · #1 (**permalink**) 12-08-04, 21:50

I need to detect if a particular Excel file is currently open useing VBA. Can anyone help as to which property to reference???

savbill · #2 (**permalink**) 12-08-04, 22:56

I use this function.
You'd might call it Like this:

If WorkbookIsOpen("somebook.xls") Then
Workbooks("somebook.xls").Activate
Else
Workbooks.Open FileName:="c:/My Documents/somebook.xls", _
ReadOnly:=False, Notify:=False
End If

Code:

'
Function WorkbookIsOpen(wbname) As Boolean
'   Returns TRUE if the workbook is open
    Dim x As Workbook
    On Error Resume Next
    Set x = Workbooks(wbname)
    If Err = 0 Then WorkbookIsOpen = True _
        Else WorkbookIsOpen = False
End Function

Internet Services

Web Development

Digital Marketing

Consumer Tech