check if file is already open

  • Thread starter Thread starter mohavv
  • Start date Start date
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
 
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
 
Back
Top