check if a file is already open in VBA,

[small]

How can i check if a file is already open in VBA, i get a run time error because the file is already open and it cant open the file of same name although it is in a different directory , so i just want to have a function that return a boolean if already open so that i can just activate the file instead trying to open from the second location
Its 100 am i still need to sleep from yesterday so any urgent help would be very much apprectaited

 

[Tom Urtis]

Many ways to do this, here's one possibility, modify for path and file name:

Sub Test2()
On Error Resume Next
Workbooks("YourFileName").Activate
If Err <> 0 Then Err.Clear: Workbooks.Open ("C:\Your\File\Path\YourFileName.xls")
End Sub

 

[small]

i dont understand how this works or is going to work
if it has an error it ll just move to next.
why do i activate a workbook first then if error try opening it?
could you put some quick short comments to explain the code so that i can understand if it is what i need
thanks

 

[Tom Urtis]

Instead of sitting there with this "urgent" matter wondering out loud about the code while your clock is ticking, why don't you just test it to see for yourself if it's what you need? It works fine based on what you said you want, which is, it activates your workbook if it is open, and if it is not open it opens it from the file path.

 

[small]

would this work on a similar bases to what u supplied ealier .....caus i now have a situation where the file has been closed but i'm trying to save it. I need to accomadate for this situation that if the file is closed then i need to proceed, in my main func i have on error goto a and an a: label, but it doesnt seem to work, any other ways
thanks for before it did work.


Sub SaveIfFileOpen(Filename As String)
On Error Resume Next
Workbooks(Filename).Activate
ActiveWorkbook.SaveAs Filename:= _
"D:\Projects\myproj\amy\extFiles\mrpst\dupIDFail\" & ActiveWorkbook.Name _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

If Err <> 0 Then Err.Clear: Exit Sub
End Sub