如何用VBA编写打开指定文件夹下的多个子文件夹内的指定EXCEL，该指定EXCEL文件不确定在哪个子文件内

Question

例如E:\数据下有一类、二类、三类三个子目录，而信息.xls不确定在哪个子目录中，如何用VBA打开，谢谢

Answer 1

给你段实例代码参考一下，这是在宏所在路径下打开"技巧.xls"文件。在下一级路径中打开文件原理类似。
Public Sub 技巧()
Dim myFileName As String
'指定带完整目录的文件夹名称
myFileName = ThisWorkbook.Path & "\技巧.xls"
If Len(Dir(myFileName, vbDirectory)) > 0 Then
If Dir(myFileName) <> "" Then
MsgBox "该文件存在"
Else
MsgBox "该文件不存在"
End If
Else
MsgBox "所指定的文件夹或文件不存在"
End If
End Sub

Answer 2

用下面代码试试
Sub 判断并打开文件()
Dim a(1 To 3)
a(1) = "E:\数据\一类\信息.xls"
a(2) = "E:\数据\二类\信息.xls"
a(3) = "E:\数据\三类\信息.xls"
For i = 1 To 3
If Not (Dir(a(i)) = "") Then Workbooks.Open Filename:=a(i): Exit Sub
Next
End Sub本回答被提问者和网友采纳

Answer 3

你是怕出错吧，先读一下，通过判断字符窜“E:\数据\一类\信息.xls"，可以判断文件夹里有没有该文件，如果有的话可以打开，如果没有文件，而你又打开文件，会出错。