Dim bk as workbook
On Error Resume Next
set bk = WorkBooks("ws2.xls")
On Error goto 0
if not bk is nothing then
msgbox "ws2.xls is open"
else
set bk = workbooks.open( Filename:="c:\ws2.xls")
End If

Regards,
Tom Ogilvy

"Joe" wrote in message
...
Hi Everybody:

I built this VBA script for Excel and I'm running into a
bit of a problem. I have 2 seperate workbooks(We'll call
them ws1 and ws2). What I want to do is determine if ws2
is open. Is there a way to determine if it's open or not?

http://support.microsoft.com?kbid=138621
XL: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com?kbid=291295
XL2002: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com?kbid=213383
XL2000: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com?kbid=184982
WD97: VBA Function to Check If File or Document Is Open

Should give you what you want.

--
Regards,
Tom Ogilvy


flashpoint wrote in message
...
On Fri, 15 Aug 2003 13:08:52 -0400, "Tom Ogilvy"
wrote:

Dim bk as workbook
On Error Resume Next
set bk = WorkBooks("ws2.xls")
On Error goto 0
if not bk is nothing then
msgbox "ws2.xls is open"
else
set bk = workbooks.open( Filename:="c:\ws2.xls")
End If

Regards,
Tom Ogilvy



Your code works as advertized but let throw a wrench
into the works and say that there are multiple instances
of excel open on the same PC and that the file you are
checking for could be open on any of them?



... thoughts?

Thanks,
Cal

Cal,

If those instances didn't open the file as readonly
then try something like:

set wb=Workbooks.Open(FileName:="c:\test.xls", _
Readonly:=False,IgnoreReadOnlyRecommended:=True)

if not wb is nothing then
if wb.ReadOnly then BEEP
end if


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


flashpoint wrote:

On Fri, 15 Aug 2003 13:08:52 -0400, "Tom Ogilvy"
wrote:

Dim bk as workbook
On Error Resume Next
set bk = WorkBooks("ws2.xls")
On Error goto 0
if not bk is nothing then
msgbox "ws2.xls is open"
else
set bk = workbooks.open( Filename:="c:\ws2.xls")
End If

Regards,
Tom Ogilvy



Your code works as advertized but let throw a wrench
into the works and say that there are multiple instances
of excel open on the same PC and that the file you are
checking for could be open on any of them?



... thoughts?

Thanks,
Cal