本节是第二章的第4节课：工作簿实例应用（查找并打开指定文件）。上节课我们学到了在判定文件是否存在，是在打开工作簿后来判断。现在我们主动去查找文件是否存在并将其打开怎么处理了？
一、主动查找目录下是否存在此文件：
Sub文件是否存在()
a=Dir("c:\.xls")
Ifa=""Then
MsgBox"不存在"
Else
MsgBox"存在"
EndIf
EndSub
注释：
Dir("c:\.xls")：dir函数为显示目录下面的文件
二、打开制定目录下面的文件：
Sub打开指定目录下的文件()
Dima,n!,wbsAsWorkbook
a=Dir("c:\*.txt")
Workbooks.Open"c:\"a
Do
a=Dir
Ifa""Then
Workbooks.Open"c:\"a
Else
ExitSub
EndIf
Loop
EndSub
注释：1、dir函数当第一次制定路径后，第二次使用此函数时，不用再次定义文件路径；
2、Workbooks.Open：打开文件。
如需下载本节课内容，方法如下：
方法一：请在对话编辑栏中输入“第二章密码”；
方法二：登陆