Excel VBA判断工作薄是否已经打开/判断Excel文件是否已经打开

通过遍历已经打开的工作簿
*bookName需要加文件后缀名，如.xlsx

Public Function IsWorkbookOpened(bookName As String)
    Dim wb As Workbook
    IsWorkbookOpened = False
    
    For Each wb In Application.Workbooks
        If wb.Name = bookName Then
            IsWorkbookOpened = True
            Exit For
        End If
    Next

End Function