Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If no workbooks are open?
I am working with an addin and if triggered from the menu, with no workbooks
open, how can I check to see if there are any workbooks open and if not, prompt for one? Thanks, Jay |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
If no workbooks are open?
Sub ccc()
Dim bk As Workbook Dim w As Window If Workbooks.Count = 0 Then 'none open MsgBox "Open a workbook" Exit Sub Else ' check for any visible bVisible = False For Each bk In Workbooks For Each w In bk.Windows Debug.Print w.Caption, w.Visible If w.Visible = True Then bVisible = True End If Next Next End If if bVisible = false then msgbox "Open a workbook" exit sub End if ' more code End Sub -- Regards, Tom Ogilvy "jayklmno" wrote: I am working with an addin and if triggered from the menu, with no workbooks open, how can I check to see if there are any workbooks open and if not, prompt for one? Thanks, Jay |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
If no workbooks are open?
Thanks! I thought it would involve the workbooks.count, but when I tried it,
even thought no workbooks were visible, it had 1 for a count. But, that's what your visible check is for... Thanks again! "Tom Ogilvy" wrote: Sub ccc() Dim bk As Workbook Dim w As Window If Workbooks.Count = 0 Then 'none open MsgBox "Open a workbook" Exit Sub Else ' check for any visible bVisible = False For Each bk In Workbooks For Each w In bk.Windows Debug.Print w.Caption, w.Visible If w.Visible = True Then bVisible = True End If Next Next End If if bVisible = false then msgbox "Open a workbook" exit sub End if ' more code End Sub -- Regards, Tom Ogilvy "jayklmno" wrote: I am working with an addin and if triggered from the menu, with no workbooks open, how can I check to see if there are any workbooks open and if not, prompt for one? Thanks, Jay |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
When I open Excel, workbooks open automatically. How can I stop t | Excel Discussion (Misc queries) | |||
workbooks.open function fails to open an existing excel file when used in ASP, but works in VB. | Excel Programming | |||
Excel 2003 Workbooks.Open with CorruptLoad=xlRepairFile fails on Excel 5.0/95 file due to Chart, with Error 1004 Method 'Open' of object 'Workbooks' failed | Excel Programming | |||
Workbooks.Open closes other workbooks | Excel Programming | |||
Workbooks.Open / .Open Text - How do you stop the .xls addition? | Excel Programming |