code to open another workbook
 

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

code to open another workbook
 

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

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

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

code to open another workbook
 

GS pretended :
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

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("Data1.xlsx") Then _

Workbooks.Open Filename:="C:\Data1.xlsx"
UF1.Hide
End Sub

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

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

code to open another workbook
 

On Apr 29, 7:46*pm, GS wrote:
GS pretended :





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

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("Data1.xlsx") Then _

* * *Workbooks.Open Filename:="C:\Data1.xlsx"
* UF1.Hide
End Sub

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

--
Garry

Free usenet access athttp://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

Thanks Garry, I'll give this a try

Rob