Список открытых файлов

[ExcArt]

Как узнать сабж? Собственно нужно определить открыт ли файл <filename>.xls с помощью VBA.

[Pavel55]

Sub Макрос1()
Dim myWB As Workbook
Dim FileName As String
    On Error Resume Next
    FileName = "Test.xls"
    Set myWB = Workbooks(FileName)
    If myWB Is Nothing Then
        MsgBox "Файл " & FileName & " закрыт!", vbExclamation, ""
    Else
        MsgBox "Файл " & myWB.Name & " открыт!", vbInformation, ""
    End If
End Sub

[IgorGO]

Sub Test()
  s = InputBox("File name:", "Check it")
  On Error GoTo err
  If Workbooks(s).Name <> "" Then MsgBox s & " is OPEN"
  Exit Sub
err:
MsgBox "Not Open@"
End Sub

[дмидми]

'Subj
Sub ListAll()
    'In VBA enter command "View -- Immediate Window" or Ctrl+G
    Dim wb As Workbook
    For Each wb In Workbooks
        Debug.Print wb.Name
    Next
End Sub

'Body
Function IsOpen(WorkbookName As String) As Boolean
    Dim Dummy As Workbook
    On Error Resume Next
    Set Dummy = Workbooks(WorkbookName)
    If Err Then Err.Clear Else IsOpen = True
End Function