VBA check if workbook is open

[rvt1982]

Beste leden,

Ik krijg de volgende code niet aan de praat... wat doe ik fout ??

    Dim Ret

    Ret = IsWorkBookOpen("C:\myWork.xlsx")

    If Ret = True Then
        MsgBox "File is open"
        Exit Function
    Else
        MsgBox "File is Closed"
    End If

 

[edmoor]

Afhankelijk van de context, maar probeer het eens zo:

    If IsWorkBookOpen("C:\myWork.xlsx") Then
        MsgBox "File is open"
        Exit Function
    Else
        MsgBox "File is Closed"
    End If

 

[rvt1982]

Ik zie dat ik een "function not defined" krijg... (IsWorkBookOpen)
ook wel lochisch ... maar hoe/ met welke code kan ik na kijken of de bestand al open is.. ?

 

[edmoor]

Daat kun je hier lezen:
http://support.microsoft.com/kb/291295

 

[Warme bakkertje]

Of

Function BookOpen(wbName As String) As Boolean
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Workbooks(wbName)
    BookOpen = Not (Err.Number > 0)
End Function

Sub tst()
    If BookOpen("myWork.xlsx") Then MsgBox "bestand geopend"
End Sub