vba判断工作簿是否已经打开

步骤1/7

我们在vba的开发过程中需要检测一个工作薄是否被打开，这里以检测 为例

步骤2/7

打开一个excel工作薄，点击开发工具->打开开发的vbe环境，或使用alt + F11快捷键打开VBE环境。

步骤3/7

在VBE的开发环境中插入一个工程

步骤4/7

然后在新打开的模块环境中插入如下代码

Option Explicit

Sub WbIsOpenTwo()

Dim Wb As Workbook

Dim WbName As String

WbName = &#"

On Error GoTo line

Set Wb = books(WbName)

MsgBox "工作簿" & WbName & "已经被打开!"

Exit Sub

line:

MsgBox "工作簿" & WbName & "没有被打开!"

End Sub

步骤5/7

此时关闭 ，然后点击运行按钮 运行程序。

步骤6/7

弹出对话框 显示工作薄没有被打开

步骤7/7

打开 .重新运行程序。弹出对话框显示工作薄已经打开。