Workbook Open?

[Guest]

How can I test to see if a particular workbook is open?

Thanks,
Art

 

[Ron de Bruin]

There are a few ways

But I like to use a function like this

Sub test()
If bIsBookOpen("test.xls") Then
MsgBox "Open"
Else
MsgBox "Not Open"
End If
End Sub


Function bIsBookOpen(ByRef szBookName As String) As Boolean
' Rob Bovey
On Error Resume Next
bIsBookOpen = Not (Application.Workbooks(szBookName) Is Nothing)
End Function

 

[Guest]

Try This

Sub Chk_IsFileOpen()
On Error GoTo Handler
If Windows(Print_File).Visible = True Then
Exit Sub
Handler:
Call Open_File_For_Printing
End If
End Sub

 

[Guest]

My prefered method...This one opens the book if it is not open...

dim wbk as workbook

on error resume next
set wbk = workbooks("MyBook.xls")
on error goto 0

if wbk is nothing then
msgbox "Opening the book now"
set wbk = workbooks.Open("C:\MyBook.xls")
end if

 

[GrantW]

Hi Jim,
You answered this ages ago, I know, but how could I adapt your code to look
for the file in our main server. Would I include the filepath as:

set wbk = workbooks("\\servername\serversubdirectory\MyBook.xlsx") ?

Oh... and thanks

 

[Bob Phillips]

If the file is already open, you only need the file name.

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)