Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Pfad gem. Pfadhierarchie ermitteln

Gruppe

Arbeitsmappe

Problem

Die benutzerdefinierte Funktion liefert das dem Verzeichnis dieser Arbeitsmappe übergeordnete Verzeichnis gem. Parameter.

Lösung
Geben Sie die benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: Modul1

Function GetParentDir(iDir As Integer) As String
   Dim iChar As Integer, iAct As Integer
   Dim sDir As String
   sDir = ThisWorkbook.Path
   For iAct = 1 To iDir
      iChar = Len(sDir)
      Do Until Mid(sDir, iChar, 1) = "\"
         iChar = iChar - 1
      Loop
      sDir = Left(sDir, iChar - 1)
   Next iAct
   GetParentDir = sDir
End Function