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

【问题标题】：How to set a Relative path in Rollup Macro如何在汇总宏中设置相对路径
【发布时间】：2015-02-26 06:46:07
【问题描述】：

我正在使用宏将一堆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"

【问题讨论】：

【解决方案1】：

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

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

【讨论】：