VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Pfad gem. Pfadhierarchie ermitteln

Gruppe

UDF

Bereich

Arbeitsmappe

Thema

Pfad gem. Pfadhierarchie ermitteln

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

    


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