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

Question

应用:Excel

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

我需要从Workbook Path返回至少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模式......

Answer 2

提供FileSystemObject了方法GetParentFolderName(path)。

请参阅如何在 VBA 中使用 FileSystemObject？

例子

Dim fso As New FileSystemObject
Dim strParent As String

strParent = fso.GetParentFolderName(Me.Range("A1").value)