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

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"

score 2 · Accepted Answer

虽然您已经根据主机工作簿的路径解决了这个问题，但请注意，您可以将相对目录返回到Desktop无论使用什么，这可能会很有OS用SpecialFolders：

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

1 回答 1