原创力文档- 1、本文档共2页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
判断指定工作簿是否打开的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行代码。
文档评论（0）