Excel VBA检查工作簿是否已打开

Question

IS there any way to check if an excel file is opened or not? If it is opened, then how can i close it?

thanks in advance

Answer 1

If the workbook name does not include the period character, it can be as simple as:

Sub TestForOpen()
    Dim wb As Workbook, st As String
    st = "Phone"
    For Each wb In Workbooks
        stwb = Split(wb.Name, ".")(0)
        If st = stwb Then
            wb.Activate
            ActiveWorkbook.Close
            Exit Sub
        End If
    Next wb
End Sub

This one looks for an open workbook named Phone.xls or Phone.xlsx or ..................

If found the workbook is closed.