VBA 03 – 应用程序path – 进入父文件夹

应用程序：Excel

Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) 

我需要从工作簿path返回至less2个文件夹。

我不能使用“C：/ Folder1”之类的path，因为应用程序将被移动多次。

Answer 1

喜欢这个：

 Function getParentFolder2(ByVal strFolder0) Dim strFolder strFolder = Left(strFolder0, InStrRev(strFolder0, "\") - 1) getParentFolder2 = Left(strFolder, InStrRev(strFolder, "\") - 1) End Function Dim strFolder strFolder = getParentFolder2(ThisWorkbook.Path) 

我们在这里削减了两次\ subdir模式…