①判断工作薄是否存在

　　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”代表所要打开的工作簿名称。