vba - 相对路径 VBA

Question

我需要从绝对路径转到相对路径。

我的宏在文件夹\models\vba 中

此宏使用文件夹\models\Main 和\models\aear 中的工作表，如下所示

 Set Main = Workbooks.Open("D:\Shared\Models\Main\Main 2017.xlsx")

我已经货比三家了，它似乎是最容易使用的

ThisWorkbook.Path

返回一个目录，然后进入宏图的最佳方法是什么？

Answer 1

您可以按照通常的方式构造相对路径，但您始终需要将它们附加到 ThisWorkbook.Path。

Set Main = Workbooks.Open(ThisWorkbook.Path & "\..\Main\Main 2017.xlsx")

每个 .. 在文件夹树中向上移动一个台阶。

您最终可以通过构建自己的函数来封装它，该函数从您的相对路径构造绝对路径

Function RelToAbs(RelPath as string) as string
    RelToAbs = ThisWorkbook.Path & "\" & RelPath
End function

Set Main = Workbooks.Open(RelToAbs("..\Main\Main 2017.xlsx"))