如何在汇总宏中设置相对路径

Question

我使用宏来汇总文件夹中的一堆excel文件，路径设置如下：

MyPath = "C:\Users\Tim\Desktop\XXX\Compiled"

我需要设置相对路径，因为文件夹XXX不断更改名称。

我找到了

 Workbooks.Open Filename:=ThisWorkbook.Path & "\Compiled"

会设置一个相对路径，但无法弄清楚如何将它应用到我的情况，我已经尝试了

 MyPath = Workbooks.Open Filename:=ThisWorkbook.Path & "\Compiled"

但不起作用

由于

编辑 我想通了

MyPath = ActiveWorkbook.Path & "\Compiled"

Answer 1

虽然您已根据主机工作簿的路径解决了这个问题，但请注意，您可以使用{{Desktop向OS返回相对目录，而不管SpecialFolders 1}}：

Dim wsShell As Object
Set wsShell = CreateObject("wscript.shell")
strDir = wsShell.SpecialFolders("Desktop") & "\XXX\Compiled"