workbooks.count apparently miscounting

[stuck]

If I have Excel open but no workbooks open then my code (In Word VBA module) that says:

Code: Select all

numBks = xlApp.Workbooks.Count

shows numbks to be '1'.

Would that be because the .Count is the count of ALL workbooks so it's counting personal.xls or some other hidden workbook?

Ken

[HansV]

The Workbooks collection consists of all open workbooks, whether visible or hidden.
So Personal.xls(b) is included in the Workbooks collection.
Add-ins are *not* included.

[stuck]

Thanks for the confirmation.


Ken

[Jan Karel Pieterse]

I tend to use this function:

Code: Select all

Function CountVisible() As Boolean
    Dim lCt As Long
    Dim oWb As Workbook
    For Each oWb in Workbooks
        If oWb.Windows(1).Visible = True Then
            lCt = lCt + 1
        End If
    Next
    CountVisible = lCt
End Function