如何快速检查Excel中某个文件（工作簿）是打开还是关闭状态？

在日常使用Excel时，您可能同时打开多个工作簿进行操作，但有时面对上百个工作簿，很难记住某个特定的工作簿是否已经打开或关闭。放弃逐一检查文件的传统方法，这里我将向您介绍快速判断工作簿是否打开的技巧。

使用VBA检查工作簿是否打开或关闭

使用Kutools for Excel检查工作簿是否打开或关闭

使用VBA检查工作簿是否打开或关闭

以下是一个可以运行的VBA代码，用于检查特定工作簿是否已打开或关闭。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击“插入” > “模块”，然后将VBA代码复制并粘贴到新模块窗口中。

VBA：检查工作簿是否打开或关闭

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

Sub Sample()
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("combine.xlsx")
    If xRet Then
        MsgBox "The file is open", vbInformation, "Kutools for Excel"
    Else
        MsgBox "The file is not open", vbInformation, "Kutools for Excel"
    End If
End Sub

3. 然后按 F5 键运行此VBA代码，弹出对话框提示您指定的工作簿是否已打开。
    

提示：在上述VBA代码中，“combine” 是您要检查的工作簿名称，您可以根据需要更改它。

使用Kutools for Excel检查工作簿是否打开或关闭

如果您不熟悉VBA，可以通过 Kutools for Excel 的导航窗格来检查工作簿是否打开，该窗格可以帮助您清楚地查看窗格中的所有打开的工作簿列表。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 单击 Kutools > 导航 启用导航窗格。请参见截图：

2. 然后单击 工作簿和工作表 按钮展开窗格以进入 工作簿和工作表 部分。您可以在上方列表中查看所有打开的工作簿。请参见截图：

通过导航窗格，您还可以快速在列表中的工作簿或工作表之间切换。

点击此处了解更多关于导航窗格的信息。

演示：如何在Excel中创建动态工作表名称列表？