VBA-Programmierung in Microsoft Excel

Pfad gem. Pfadhierarchie ermitteln

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

    

Beiträge aus dem Excel-Forum zu den Themen UDF und Arbeitsmappe