①判断工作薄是否存在
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”代表所要打开的工作簿名称。