excel - VBA 03 - 应用程序路径 - 到达父文件夹

Question

应用程序:Excel

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

我需要从工作簿路径返回至少 2 个文件夹。

我无法使用“C:/Folder1”等路径，因为应用程序将被移动多次。

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 模式...