VBA判断代码所在工作簿所在文件夹下是否存在某个excel文件，出错了！！！

你要加上文件扩展名，你不说电脑怎么会知道这是个excel文档呢？
fil = ThisPath & "\" & Brr_name(j) & "xls"

直接忽略不容易办到。
如果是vba遍历查找excel文件，
可以使用dir或者fso的方法，读取已存在的excel文件名（含扩展名后缀）
如果是希望d出对话框，让用户选择excel文件（不管是什么扩展名）
可以使用过滤条件，限制用户可选文件的类型。

楼主应该是要判断文件不是文件夹吧如果是文件就用
Dim MyFile As Object
Set MyFile = CreateObject("ScriptingFileSystemObject")
If MyFileFileExists("D:\logogif" ) = True Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If
如果是文件夹就用1楼的方法

---