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

fil = ThisPath & "\" & Brr_name(j)a = Dir(fil)
单句运行时，已经能看到fil返回一个完整的文件目录，可是a显示为空值，这是为啥
fil显示的目录下却是存在该文件，这到底是怎么回事情呢。

第1个回答 2014-04-09

你要加上文件扩展名，你不说电脑怎么会知道这是个excel文档呢？

fil = ThisPath & "\" & Brr_name(j) & ".xls"

第2个回答 2014-04-09

要加上对就应文件扩展名,如果不知道该文件扩展名可以先所出扩展名再提取

fil = ThisPath & "\" & Brr_name(j)
ty="." & split(fil&".*",".")(ubound)
a=dir(fil&ty)

大家正在搜