Is Workbook Open : Workbook Share « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Workbook Share

Is Workbook Open

 
Sub Main()
   Debug.Print GetDefaultName()
End Sub
Function GetDefaultName() As String
    Dim bGotName As Boolean
    Dim sName As String
    Dim nIndex As Integer

    nIndex = 1
    bGotName = False

    Do
        sName = Left(ThisWorkbook.name, Len(ThisWorkbook.name) - 4) & _
            CStr(nIndex)
        If IsWorkbookOpen(sName & ".xls") Then
            nIndex = nIndex + 1
        Else
            bGotName = True
        End If
    Loop Until bGotName

    GetDefaultName = sName & ".xls"
End Function

Function IsWorkbookOpen(sWorkbookName As String) As Boolean
    Dim myWorkbook As Workbook

    IsWorkbookOpen = False
    For Each myWorkbook In Workbooks
        If StrComp(sWorkbookName, myWorkbook.name, vbTextCompare) = 0 Then
            IsWorkbookOpen = True
            Exit For
        End If
    Next

    Set myWorkbook = Nothing
End Function

 

Related examples in the same category