vba怎样判定工作薄是否打开

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

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

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

4、然后在新打开的模块环境中插入如下代码Option ExplicitSub Wb诔罨租磊IsOpenTwo() Dim Wb As Workbook Di罪焐芡拂m WbName As String WbName = "abc.xlsx" On Error GoTo line Set Wb = Application.Workbooks(WbName) MsgBox "工作簿" & WbName & "已经被打开!" Exit Subline: MsgBox "工作簿" & WbName & "没有被打开!"End Sub

5、此时关闭 abc.xlsx,然后点击运行按钮 运行程序。

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

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