Code to handle files that are already open

[paulyf]

Hi all,

Does anybody know the syntax for an IF STATEMENT to check if an Excel workbook is already open?

I have a form that opens 5 workbooks before performing various tasks. I want to avoid the message "xyz is already open. Re-opening will cause any changes you made to be discarded. Do you want to reopen xyz?".

Any Thoughts?

Many Thanks.

Cheers - Paul

 

[Ricky Morris]

Try this:

Sub OpenFile()
wb = "C:My Documentsxyz.xls"
For Each wbk In Workbooks
If wbk.FullName = wb Then
Windows(wbk.Name).Visible = True
wbk.Activate
GoTo endsub
End If
Next wbk
Workbooks.Open Filename:=wb
endsub:
End Sub

This will unhide and activate the file if it's open or open it if it's not.

 

[paulyf]

Many Thanks Ricky!

PROBLEM SOLVED

Cheers - Paul