你要加上文件扩展名，你不说电脑怎么会知道这是个excel文档呢？fil = ThisPath & "\" & Brr_name(j) & ".xls"
要加上对就应文件扩展名,如果不知道该文件扩展名可以先所出扩展名再提取fil = ThisPath & "\" & Brr_name(j)ty="." & split(fil&".*",".")(ubound)a=dir(fil&ty)
