如何用VBA打开另一个存放路径文件夹的EXCEL的文件

wxffgb

我编写了一段代码，用于打开与本文件不同的存放路径文件夹内的EXCEL文件，并执行相关操作后，关闭，代码如下：
Sub 批量汇总()
Application.ScreenUpdating = False
Dim wb As Excel.Workbook
f = Dir(ThisWorkbook.Path & "\PSCS数据\需要得到的结果\*.xls*") '
Do While f <> "" '在目录中循环
If f <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f) '依次打开目录工作薄
With wb
      Sheets.Add = "汇总"
End With
      wb.Close True '关闭打开的工作薄
    End If
     f = Dir
     Loop '
     Application.ScreenUpdating = True
END SUB
但在运行时，怎么也找不到EXCEL文件。我的excel是2016版的。文件路径是：C:\Excel VBA 学习\PSCS数据\需要得到的结果\Application List.xlsx
运行F总显示“”，请老师帮忙看一下，哪里出了问题。谢谢

wxffgb

请老师指点呀

ihih3g

f = Dir(ThisWorkbook.Path & "\PSCS数据\需要得到的结果\*.xls*") '
这个得到的只是不带路径的文件名，
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)
本来在”ThisWorkbook.Path & "\PSCS数据\需要得到的结果“这个目录里，你又要到ThisWorkbook.Path里打开
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)，当然找不到。
应改为：Set wb = Workbooks.Open(ThisWorkbook.Path & ""\PSCS数据\需要得到的结果\" & f)