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

[Cinema]

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.

[Bob Phillips]

What is wb2 exactly? Is it a code object, your name for it, or what?

[Cinema]

Hi xld,

my workbook is called wb2.csv

This is my code:


Sub Import()

Dim fname As String
Dim fpath As String
Dim wb1 As Workbook
Dim wb2 As Workbook

Set wb1 = ThisWorkbook
fpath = wb1.Sheets(Sheet1).Range("Path").Value
fname = wb1.Sheets(Sheet1).Range("Name").Value

'Open Workbook
Application.DisplayAlerts = False
Set wb2 = Workbooks.Open(fpath & "\" & fname)
Application.DisplayAlerts = True

'code
'code



This opens wb2.csv But I want first check if wb2.csv is already open and if not it should be opened.

[Paul_Hossler]

I think something like this



Sub CheckOpen()

Dim wb As Workbook, wbCSV As Workbook

Set wbCSV = Nothing

For Each wb In Application.Workbooks
If wb.Name = "wb2.csv" Then
Set wbCSV = wb
Exit For
End If
Next

If wbCSV Is Nothing Then
MsgBox "Open it"
Else
MsgBox "Already open"
End If

End Sub

[Bob Phillips]

Another way


Dim isOpen As Boolean

On Error Resume Next
isOpen = CBool(Not Workbooks("wb2.csv") Is Nothing)
On Error Goto 0

If isOpen Then
MsgBox "Already open"
Else
MsgBox "Open it"
End If

[Cinema]

This is perfect thank you !