如何在 Excel 中查找或检查特定工作簿是否已打开？

您可能同时打开了多个工作簿。如果您需要检查某个特定的工作簿当前是否已打开，VBA 提供了一个简单的解决方案。本指南将向您展示如何使用 VBA 代码快速判断工作簿是否已打开。

检查 Excel 中的工作簿是否已打开

检查 Excel 中的工作簿是否已打开

您可以按照以下步骤检查 Excel 中的某个工作簿是否已打开。

1. 按下 Alt + F11 打开 Microsoft Visual Basic for Applications 窗口。在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。

2. 接下来，复制并将下面的 VBA 代码粘贴到编辑器中。

VBA 代码：查找工作簿是否已打开

Sub TrimExcessSpaces()
	Dim xWBName As String
	Dim xWb As Workbook
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	xWBName = Application.InputBox("Workbook Name", xTitleId, "", Type: = 2)
	Set xWb = Application.Workbooks(xWBName)

	If xWb Is Nothing Then
		MsgBox "The Workbook is not open!"
	Else
		MsgBox "The Workbook is open!"
	End If

End Sub

3. 现在按下 F5 键运行代码。在弹出的 KutoolsforExcel 对话框中，输入要检查的工作簿名称，然后点击 确定 按钮。请参见截图：

如果指定的工作簿已打开，将会弹出一个对话框，告诉您该工作簿已打开；

否则，如果指定的工作簿未打开，您会看到以下对话框。