checking if some specific workbook is open; if not then it should be opened.

[Sinem]

Hello,


I want to write a code that checks if some specific workbook (wb2) is open already and if not then it should open wb2.

 

[DocAElstein]

Hi Sinem

Thank you DocaElstein,

I your code works. Now I have this :

.....

I you not too good understand?

But thanks for the feed back and code

Alan

P.s. Please use code Tags when posting code:
To do that , highlight your code , then hit the # above

' Check if workbook is open
On Error Resume Next
Set wb1 = Workbooks(fname)
On Error GoTo 0
If wb1 Is Nothing Then
' If workbook was NOT open, it will open it
' it will use the parameter WbOpen to remember whether the workbook was open or not
Set wb1 = Workbooks.Open(fpath & "\" & fname, ReadOnly:=True) 
WbOpen = False
Else
' If the workbook was open, we'll just assign the sheet and WbOpen
WbOpen = True
End If 
' If the workbook was NOT open, close it with: If WbOpen = False Then daten.Close SaveChanges:=False

' Check if workbook is open
On Error Resume Next
Set wb1 = Workbooks(fname)
On Error GoTo 0
If wb1 Is Nothing Then
' If workbook was NOT open, it will open it
' it will use the parameter WbOpen to remember whether the workbook was open or not
Set wb1 = Workbooks.Open(fpath & "\" & fname, ReadOnly:=True) 
WbOpen = False
Else
' If the workbook was open, we'll just assign the sheet and WbOpen
WbOpen = True
End If 
' If the workbook was NOT open, close it with: If WbOpen = False Then daten.Close SaveChanges:=False