判断指定工作簿是否打开的2种方法

《判断指定工作簿是否打开的2种方法》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、判断指定工作簿是否打开的2种方法1遍历Workbooks集合方法通过遍历当前应用程序所有已打开的工作簿文件(Workbooks集合)，判断指定名称的工作簿是否打开，如下面的代码所示。SubWorkbookIsOpen_1()DimWbAsWorkbookDimmyWbAsStringmyWb="ExcelHome.xls"ForEachWbInWorkbooksIfWb.Name=myWbThenMsgBox"工作簿"&myWb&"已经被打开!"ExitSubEndIfNextMsgBox"工作簿"&myWb&"没有被打开!"EndSub代码解析：WorkbookIsOpen_1过程通过遍

2、历当前应用程序中所有已打开的工作簿文件(Workbooks集合)，判断“ExcelHome”工作簿是否打开。第5行代码使用For...Each...Next语句来遍历Workbook对象集合中的所有元素。第6行到第8行代码如果Workbook对象集合包含“ExcelHome.xls”工作簿名称，说明文件已打开，使用ExitSub语句结束代码的运行。第11行代码如果运行到此行代码说明“ExcelHome.xls”工作簿没有被打开。2错误处理方法使用错误处理程序判断指定名称的工作簿是否打开，如下面的代码所示。SubWorkbookIsOpen_2()DimWbAsWorkbookDimmyWb

3、AsStringmyWb="ExcelHome.xls"Err.ClearOnErrorGoTolineSetWb=Application.Workbooks(myWb)MsgBox"工作簿"&myWb&"已经被打开!"SetWb=NothingExitSubline:MsgBox"工作簿"&myWb&"没有被打开!"SetWb=NothingEndSub代码解析：WorkbookIsOpen_2过程使用错误处理程序判断“ExcelHome”工作簿是否打开。第5行代码使用Clear方法清除Err对象的所有属性设置。第6行代启动错误处理程序，如果第7行代码发生错误则执行line行后面的代码。

4、第7行代码使用Set语句将Workbook对象引用赋给变量Wb，如果“ExcelHome.xls”工作簿没有被打开将发生下标越界错误，此时执行第12、13行代码，否则执行第8、9行代码。