怎样使用excelvba判断缬方焱蜱一个工作薄是否打开。这里介绍两种方法。第一种是遍历工作薄的方式；第二种是使用错误处理的方式。
工具/原料
excel2016
windows10
需要被检测的excel工作薄
使用异常错误处理方法
1、我们在vba的开发过程中需要检测一个工作薄是否被打开，这里以检测abc.xlsx为例
2、打开一个excel工作薄，点击开发工具-争犸禀淫>打开开发的vbe环境，或使用alt+F11快捷键打开VBE环境。
3、在VBE的开发环境中插入一个工程
4、然后在新打开的模块环境中插入如下代码OptionExplicitSubWb诔罨租磊IsOpenTwo()DimWbAsWorkbookDi罪焐芡拂mWbNameAsStringWbName="abc.xlsx"OnErrorGoTolineSetWb=Application.Workbooks(WbName)MsgBox"工作簿"&WbName&"已经被打开!"ExitSubline:MsgBox"工作簿"&WbName&"没有被打开!"EndSub
5、此时关闭abc.xlsx,然后点击运行按钮运行程序。
6、弹出对话框显示工作薄没有被打开
7、打开abc.xlsx.重新运行程序。弹出对话框显示工作薄已经打开。
使用遍历workbooks集合的方法
1、前面几个步骤打开vbe环境与方法一相同，这里不再赘述。同样的方式新建模块。
2、然后在新建的模块里面插入如下代码：OptionExplicitSubWbI衡痕贤伎sOpenOne()DimWbAsWorkboo娱浣嫁装kDimWbNameAsStringWbName="abc.xlsx"ForEachWbInWorkbooksIfWb.Name=WbNameThenMsgBox"工作簿"&WbName&"已经被打开!"ExitSubEndIfNextMsgBox"工作簿"&WbName&"没有被打开!"EndSub
3、注意到此时abc.xlsx已经打开。然后点击运行按钮。
4、弹出对话框显示工作薄已打开。
5、把abc.xlsx工作薄关闭，然后再次点击运行程序。显示对话框工作薄已关闭。
