how to check through Access whether some Excel file is opened

[Alex]

I would appreciate if any body could advise how to check
through Access whether some Excel file is opened.

Thanks advance

 

[Immanuel Sibero]

Hi Alex,

I use the function below, I wish I remembered where I found it so I could
give proper credit....




Function FileLocked(strFileName As String) As Boolean
On Error Resume Next

Open strFileName For Binary Access Read Lock Read As #1
Close #1

If Err.Number <> 0 Then
FileLocked = True
Err.Clear
End If

End Function






HTH,
Immanuel Sibero

 

[Alex]

Thank you very much

-----Original Message-----

Hi Alex,

I use the function below, I wish I remembered where I found it so I could
give proper credit....




Function FileLocked(strFileName As String) As Boolean
On Error Resume Next

Open strFileName For Binary Access Read Lock Read As #1
Close #1

If Err.Number <> 0 Then
FileLocked = True
Err.Clear
End If

End Function






HTH,
Immanuel Sibero





.