Check if excel is open vba

Home / VBA / VBA Check IF a Workbook is Open (Excel File)

Sub vba_check_workbook()

Dim WB As Workbook
Dim myWB As String

myWB = InputBox(Prompt:="Enter the workbook name.")

For Each WB In Workbooks
    If WB.Name = myWB Then
        WB.Activate
        MsgBox "Workbook Found!"
        Exit Sub
    End If
Next WB

MsgBox "Not Found"

End Sub

This Excel tutorial explains how to use Workbooks Open Method to open a closed workbook and check if workbook is opened.

In worksheet automation, we may need to programmatically open another workbook to change data based on the active workbook. Workbooks Open Method is very straight forward to use, you just need to specify the file name to open, but there are many other optional parameters you may want to use.

Note that Workbooks Open Method is different from Workbook Open Event, the latter is to trigger VBA when a workbook is opened.

Example of Excel VBA Workbooks Open Method

Assume that you have two workbooks. One is called FileA.xlsm, another is called FileB.xlsx

Now you want to open FileB from FileA, so FileA should contain the Macro (therefore .xlsm) and FileB does not need any Macro.

In FileA, create a Sub in Module and insert the below code, which will open FileB.

Workbooks.Open ("C:UsersWYMANDesktopfolderFileB.xlsx")

After you open FileB, you may need to change the data.  Therefore you need to give FileB a name in order to manipulate it.

The below code give FileB a name called masterWB.

Set masterWB = Workbooks.Open("C:UsersWYMANDesktopfolderFileB.xlsx")

If the FileB is already opened, you will receive an alert.

Now you can manipulate FileA (using thisworkbook) and FileB(using masterWB) from FileA

masterWB.Sheets("Sheet1").Range("A1").Value = "FileB"
ThisWorkbook.Sheets("Sheet1").Range("A1").Value = "FileA"

Check if Workbook is opened already

You may already have FileB opened before the Macro is run, in that case you will receive an alert message if you use Workbooks.Open, this will prevent your Macro from further running.

There are some methods to test if a Workbook is already opened, below is my preferred method. This Function loop through  all currently opened Workbook to see if there is a Workbook name same as the name provided in the Function argument.

Public Function wIfWbOpen(wbName As String) As Boolean
    Dim oWB As Excel.Workbook
    wIfWbOpen = False
    For Each oWB In Application.Workbooks
        If oWB.Name = wbName Then
            wIfWbOpen = True
            Exit For
        End If
    Next
    Set oWB = Nothing
End Function

Finally use the Function in the Sub in which you want to run code in FileB.

Public Sub updateData()
    If wIfWbOpen("FileB.xlsx") Then
        Set masterWB = Workbooks("FileB.xlsx")
    Else
        Set masterWB = Workbooks.Open("C:UsersWYMANDesktopfolderFileB.xlsx")
    End If
End Sub

Outbound References

http://www.ozgrid.com/forum/showthread.php?t=63350

When writing code in Excel VBA it is a good practice to first check for some conditions before taking certain actions. For example, when we write code to copy data to or from a range in an Excel file, it is important that we first check if the file is open. We can include a statement that opens the file in case it is closed.

In this tutorial we will look at 2 methods we can use to apply Excel VBA in checking whether a workbook is open or closed.

Method 1: Use a User Defined Function (UDF)

Excel VBA does not have an in-built function for checking whether files are open or not, but we can create a UDF to do the task. The UDF returns TRUE if the file is open and FALSE if it is not open.

Create the UDF

We use the following steps to create the UDF:

1. In the active worksheet press Alt + F11 to open the Visual Basic Editor (VBE). Alternatively, click Developer >> Code >> Visual Basic.

1. In the Project Window right-click the ThisWorkbook object and select Insert >> Module on the shortcut menu>

Alternatively, we click Insert >> Module on the menu bar.

1. In the inserted module, type the following function procedure:

1. Save the function procedure and save the workbook as a macro-enabled workbook.

Explanation of the User-Defined Function

The function returns a value of Boolean data type. This means that it returns either a TRUE or FALSE value. The function takes one argument of the String data type.

One Workbook object variable is declared.

If an error occurs, this statement instructs VBA to continue executing the statements immediately after the statement that caused the error.

The workbook to be checked is assigned to the workbook variable.

This statement checks if the workbook variable has a workbook object and returns TRUE if it has one or FALSE if it is empty.

The TRUE or FALSE value is assigned to the IsWorkBookOpen variable and this is the value that is returned by the function.

Use the UDF

We can now use our UDF by calling it in a subroutine by using the following steps:

1. Press Alt + F11 to open the Visual Basic Editor.
2. Insert a new module and type in the Sub procedure below:

1. Save the Sub procedure and save the workbook as a macro-enabled workbook.
2. Place the cursor anywhere in the Sub procedure and press F5 to run the code.
3. In the Input box that pops up, enter the name of the workbook that we want to check if it is open or closed and click OK. In this case, we have entered the name Suppliers of a closed workbook.

A message box pops up displaying the message that the workbook is not open.

When we open the Suppliers workbook and run the procedure again, the message box pops displaying the message that the file is open.

Explanation of the Sub procedure

• Two variables are declared, one of Boolean data type and the other of String data type.
• The InputBox function prompts for the name of the workbook.
• The name of the workbook is assigned to the myWB variable.
• The value in the myWB variable is passed to the IsWorkbookOpen function which returns TRUE if the file is open or FALSE if it is not open. Either of these values is assigned to the xlCheck variable.
• If the value in the xlCheck variable is TRUE, the MsgBox function sends a message box to the screen which displays the message The file is open. If the value in the xlCheck variable is FALSE, the MsgBox function sends to the screen a message box that displays the information The file is not open.

Method 2: Use a Sub procedure

We can also use a Sub procedure to check if a workbook is open or closed in Excel by using the following steps:

1. Press Alt + F11 to open the Visual Basic Editor and insert a new module.
2. In the module type the following Sub procedure:

1. Save the Sub procedure and save the workbook as a macro-enabled workbook.
2. Place the cursor anywhere in the procedure and press F5 to run the procedure.
3. In the Input box that pops up, enter the name of the workbook that we want to check if it is open or closed and click OK. In this case, we have entered the name Suppliers.xlsx of a closed workbook.

The message box displaying the information that the workbook is not open pops up on the screen.

If we open the Suppliers workbook and run the procedure again, the message box that displays the information that the workbook is open pops up on the screen.

Explanation of the subroutine

• A workbook variable and a string variable are declared.
• The InputBox function prompts the user for the name of the file that is to be checked.
• The input from the user is assigned to the myWB variable.
• For Each Next construct loops through all the open workbooks checking the value in the myWB variable against each of the names of the open workbooks collection.
• If a match is found, the relevant open workbook is activated and the MsgBox function sends a message box to the screen displaying the message Workbook is Open!, and the Subroutine is exited.
• If a match is not found, the MsgBox function sends a message box to the screen that displays the information that the Workbook is not open and the subroutine ends.

Conclusion

In this tutorial, we have explored two methods that we can use to check if a file is open or closed in Excel.

The first method involves the use of a User Defined Function and the second method applies a subroutine.

Post Views: 211