如何判断某个工作薄名称已存在或已打开

　　①判断工作薄是否存在

　　If Not FileExists("C:\文件夹\子文件夹\文件.xls") Then '调用函数FileExists来判断
　　　MsgBox "这个工作簿不存在!"
　　Else
　　Workbooks.Open "C:\文件夹\子文件夹\文件.xls"
　　End If

　　Function FileExists(FullFileName As String) As Boolean
　　　'如果工作簿存在,则返回True
　　　FileExists = Len(Dir(FullFileName)) > 0
　　End Function
　　示例说明：本示例使用自定义函数FileExists判断工作簿是否存在，若该工作簿已存在，则打开它。代码中，“C:\文件夹\子文件夹\文件.xls”代表工作簿所在的文件夹名、子文件夹名和工作簿文件名。

　　②判断工作薄是否已打开

　　If Not WorkbookOpen("成绩.xls") Then
　　　Workbooks.Open "成绩.xls"
　　End If

　　Function WorkbookOpen(WorkBookName As String) As Boolean
　　'如果该工作簿已打开则返回真
　　WorkbookOpen = False

　　On Error GoTo WorkBookNotOpen

　　If Len(Application.Workbooks(WorkBookName).Name) > 0 Then
　　　WorkbookOpen = True
　　　MsgBox "该工作簿已打开"
　　Exit Function
　　End If

　　WorkBookNotOpen:
　　End Function

　　示例说明：本示例中的函数WorkbookOpen用来判断工作簿是否打开。代码中，“成绩.xls”代表所要打开的工作簿名称。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18