code to open another workbook

  • Thread starter Thread starter Rob
  • Start date Start date
R

Rob

I am building an application in one workbook that requires another
workbook be open. Here is the code I am using:

Private Sub OB1_Click()
Workbooks.Open Filename:="C:\Data1.xlsx"
UF1.Hide
End Sub

This does the job, but what is the code that determines if this
workbook "C:\Data1.xlsx" is already open so it doesn't try and re-open
it?

Thank you,

Rob
 
Rob submitted this idea :
I am building an application in one workbook that requires another
workbook be open. Here is the code I am using:

Private Sub OB1_Click()
Workbooks.Open Filename:="C:\Data1.xlsx"
UF1.Hide
End Sub

This does the job, but what is the code that determines if this
workbook "C:\Data1.xlsx" is already open so it doesn't try and re-open
it?

Thank you,

Rob
Click to expand...

Here's a generic function that you can reuse in any project:

Function bBookIsOpen(wbkName) As Boolean
' Checks if a specified workbook is open.
' Arguments: wbkName The name of the workbook
' Returns: True if the workbook is open

Dim x As Workbook
On Error Resume Next
Set x = Workbooks(wbkName)
bBookIsOpen = (Err = 0)
End Function

To use it...

Private Sub OB1_Click()
If Not bBookIsOpen("C:\Data1.xlsx") Then _
Workbooks.Open Filename:="C:\Data1.xlsx"
UF1.Hide
End Sub
 
GS pretended :
Rob submitted this idea :

Here's a generic function that you can reuse in any project:

Function bBookIsOpen(wbkName) As Boolean
' Checks if a specified workbook is open.
' Arguments: wbkName The name of the workbook
' Returns: True if the workbook is open

Dim x As Workbook
On Error Resume Next
Set x = Workbooks(wbkName)
bBookIsOpen = (Err = 0)
End Function

To use it...

Private Sub OB1_Click()
Click to expand...

If Not bBookIsOpen("Data1.xlsx") Then _
Workbooks.Open Filename:="C:\Data1.xlsx"
UF1.Hide
End Sub
Click to expand...

Sorry, bad copy/paste! Make the correction to the above revised line.
 
Back
Top