文档介绍:Forpersonaluseonlyinstudyandresearch;mercialuse芀判断指定工作簿是否打开的2种方法薆1遍历Workbooks集合方法羃通过遍历当前应用程序所有已打开的工作簿文件(Workbooks集合),判断指定名称的工作簿是否打开,如下面的代码所示。膃SubWorkbookIsOpen_1()芀DimWbAsWorkbook羇DimmyWbAsString蚅myWb=""=myWbThen莈MsgBox"工作簿"&myWb&"已经被打开!"膂ExitSub螁EndIf蒀Next蒅MsgBox"工作簿"&myWb&"没有被打开!"袄EndSub葿代码解析:薀WorkbookIsOpen_1过程通过遍历当前应用程序中所有已打开的工作簿文件(Workbooks集合),判断“ExcelHome”工作簿是否打开。袅第5行代码使用For...Each...Next语句来遍历Workbook对象集合中的所有元素。莂第6行到第8行代码如果Workbook对象集合包含“”工作簿名称,说明文件已打开,使用ExitSub语句结束代码的运行。薂第11行代码如果运行到此行代码说明“”工作簿没有被打开。蚀错误处理方法芆使用错误处理程序判断指定名称的工作簿是否打开,如下面的代码所示。肄SubWorkbookIsOpen_2()莁DimWbAsWorkbook螀DimmyWbAsString蚇myWb=""=(myWb)肈MsgBox"工作簿"&myWb&"已经被打开!"膄SetWb=Nothing膃ExitSub衿line:膅MsgBox"工作簿"&myWb&"没有被打开!"羆SetWb=Nothing袂EndSub罿代码解析:蚆WorkbookIsOpen_2过程使用错误处理程序判断“ExcelHome”工作簿是否打开。莄第5行代码使用Clear方法清除Err对象的所有属性设置。蚁第6行代启动错误处理程序,如果第7行代码发生错误则执行line行后面的代码。聿第7行代码使用Set语句将Workbook对象引用赋给变