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

判断指定工作簿是否打开的2种方法 1 遍历Workbooks集合方法 通过遍历当前应用程序所有已打开的工作簿文件(Workbooks集合)，判断指定名称的工作簿是否打开，如下面的代码所示。 Sub WorkbookIsOpen_1() Dim Wb As Workbook Dim myWb As String myWb = Excel Home.xls For Each Wb In Workbooks If Wb.Name = myWb Then MsgBox 工作簿 myWb 已经被打开! Exit Sub End If Next MsgBox 工作簿 myWb 没有被打开! End Sub 代码解析： WorkbookIsOpen_1过程通过遍历当前应用程序中所有已打开的工作簿文件(Workbooks集合)，判断“Excel Home”工作簿是否打开。 第5行代码使用For...Each...Next语句来遍历Workbook对象集合中的所有元素。 第6行到第8行代码如果Workbook对象集合包含“Excel Home.xls”工作簿名称，说明文件已打开，使用Exit Sub语句结束代码的运行。 第11行代码如果??行到此行代码说明“Excel Home.xls”工作簿没有被打开。 错误处理方法 使用错误处理程序判断指定名称的工作簿是否打开，如下面的代码所示。 Sub WorkbookIsOpen_2() Dim Wb As Workbook Dim myWb As String myWb = Excel Home.xls Err.Clear On Error GoTo line Set Wb = Application.Workbooks(myWb) MsgBox 工作簿 myWb 已经被打开! Set Wb = Nothing Exit Sub line: MsgBox 工作簿 myWb 没有被打开! Set Wb = Nothing End Sub 代码解析： WorkbookIsOpen_2过程使用错误处理程序判断“Excel Home”工作簿是否打开。 第5行代码使用Clear方法清除Err对象的所有属性设置。 第6行代启动错误处理程序，如果第7行代码发生错误则执行line行后面的代码。 第7行代码使用Set语句将Workbook对象引用赋给变量Wb，如果 “Excel Home.xls”工作簿没有被打开将发生下标越界错误，此时执行第12、13行代码，否则执行第8、9行代码。