vba - 上一级文件夹

Question

我有一个获取子文件夹数据的宏。不过我还想要主文件夹中的一些东西。

我查看了How to get current working directory using vba?但需要更改activeworkbook路径:

Application.ActiveWorkbook.Path might be "c:\parent\subfolder"

我想要

"c:\parent\"

使用 Excel 365 VBA

Answer 1

由于路径可能不是当前工作目录，您需要从字符串中提取路径。

找到最后一个\并读取左侧的所有字符:

ParentPath = Left$(Path, InStrRev(Path, "\"))

如果您正在当前目录下工作，ChDir ".." 会将您跳到一级，新路径可以通过 CurrDir 返回。