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 !