The following Excel VBA function may be used to test if an Excel workbook is currently open. The wbName parameter refers to the full path of a specific file. The function will return true if the workbook is already open.
Function IsWbOpen(wbName As String) As Boolean
On Error Resume Next
IsWbOpen = Len(Workbooks(wbName).Name)
On Error GoTo 0