check if file is already open

M

mohavv

Hi,

I want a macro to check is a file, which is called upon, is already
open and if so skips the opening line of the code and proceeds with
the rest, otherwise proceed with opening the file.

Currently Excel asks me if I want to reopen the file and unsaved data
will be lost.

Cheers,

Harold
 
D

Dave Peterson

Dim Wkbk as workbook
....

set wkbk = nothing
on error resume next
'don't use the drive/path here
set wkbk = workbooks("somename.xls")
on error goto 0

if wkbk is nothing then
'not open, so open it.
'you need the drive/path here
set wkbk = workbooks.open(filename:="C:\my documents\excel\somename.xls")
end if
 
Top