如何在汇总macros中设置相对path

我正在使用macros汇总一个文件夹中的一堆excel文件，path设置是这样的：

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

我需要设置一个相对path为文件夹XXX保持更改名称。

我发现了

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

会设置一个相对path，但是不知道如何把它应用到我的情况，我试了一下

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

但不起作用

谢谢

编辑我想通了

 MyPath = ActiveWorkbook.Path & "\Compiled" 

Answer 1

虽然您已经根据主机工作簿的path解决了这个问题，但是可能需要注意的是，无论使用SpecialFolders的OS如何，都可以将相对目录返回到Desktop ：

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