Is selected file open? : Workbook File « Excel « VBA / Excel / Access / Word






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

Is selected file open?

 
Sub IsWorkbookOpen()
   Dim myWorkbook As Workbook
   Dim stName As String
 
   stName = "c:\abc.xls"
   On Error Resume Next
   Set myWorkbook = Workbooks(stName)
   If Not myWorkbook Is Nothing Then
      MsgBox True
   End If
  
   MsgBox False
End Sub








Related examples in the same category

1.Open Workbook file (xls file)
2.Get path of current work book
3.Get work book from same directory
4.Save as the active workbook
5.Get next file name
6.Open a text file for workbook
7.Get active workbook name only(without path name)
8.Load excel file
9.Presents user with a GetOpenFileName dialog that allows multiple file selection.
10.tells you how many workbooks are open
11.Save changes automatically, specify this as a parameter of the Close method