搞定了,应用场景是,不同excel版本无法使用单一扩展名打开操作,算是过渡吧,但还是建议统一使用最新的.xlsx扩展名,高版本excel的不能将整个sheet复制到低版本的excel里,很麻烦。。。
Set fso = CreateObject("scripting.filesystemobject")
Set folder = fso.getfolder(ThisWorkbook.Path)
For Each file In folder.Files
If InStr(file.Name, "目标文件") <> 0 Then
Workbooks.Open (file)
End If
Next